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Editorial 


Después de las vacaciones todo redacción que hacemos la revista, la 
tarea de ofreceros un nuevo núme de te E ARE 










Muchas cartas de toda nuestra geografía nos hemos ntrado encima de la mesa. ¡Gracia Ases 
vuestro apoyo y o sa a ha Ele mu uc E 28 ama A ape emitido, per . 
PO un. favor: junto con el p via de AOS pe alles, una ex- 
n poco más defin ada e ómo ole e bé cebido oy a e un 

n este número, o ublica do ema o l mes. ¿Se os oc o. a idea par 1 
los? Hemos chequeado nie Sd de a del gu so de la mayoría. Tenemos que Ear A 
entre todos, un ista que, pá ce a pá a len e de satisfacción. 
Por ello, tenemos el pr $. cto de hac pa a en la revista: diseño, listados, utilidades y co- 
mentarios sobre los s mejores programa es l mercado europeo. 
En ES ximo número o Sl donde irán refle seña adas e de preguntas 
que son nece s par q. ma Ep pu Ade E ¿a opinión mayoritaria a s con vuestra colaboración! 
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DRGANO 


Esta pequeña rutina te puede ser- 
vir para introducir sonido en tus pro- 
gramas. La rutina produce un sonido 
diferente según la tecla que pulses. 





—___10 PRINT_AT 1,5¡"TECLA:*",*" CODIGO:*" A 2 A a 
20 INPUT "DURACION: *T 
———30-BEEP-T,CODE INKEYS-60 a , gina AA 





35 PRINT AT 2,7; INKEYS, * “¡CODE INKEYE-80,,,, 
-40-60.TO-30 ú : á 

MÍ : q - e ET 5 E ER ds a A | 

O 050 save -orcano- LINE 1 E A A ANO O RE > 





4 
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BE 
FRECUENCIA 





A pá 


ii 
O ci cin 
a PE 


























Este programa sirve para realizar 
la frecuencia de cualquier sonido que 
introduzcas por la entrada EAR de tu 
Spectrum. 





-G.T.S EUGENIO GARRIDO 
IR A 

__ 3 LOAD **CODE ; BORDER ? 
4 GO SUB 100 

3018 —:—PRINT—PULSA—BREAK -PARA-PARAR-—"———————— 
10 PAUSE O 

15 FOR Y=0 TO 21 

20 PRINT AT Y,03*?" 

30 NEXT Y Al 


230 






40 RANDOMIZE USR 45056 
100 POKE USR *A*",255 


120 POKE USR "A"+2,129 
130 POKE USR “A*+3,129 
140 POKE USR "A"+4,129 
150 POKE USR "A"+5,129 
160 POKE USR "A*+r6,129 . 

165 POKE USR "A*+7,255 : 

200 SAVE “ANA FRECUC*" LINE 1: SAVE “*CM"CODE 45056, 170 

LISTADO ASSEMBLER 




















45056. 62  LDA, 63 
45059 O NOP E 
45060 179 OR E 
45061 6 _L1DB, 7? 
45064 0 NOP- | 
-45065 177 OR C 

45066 112 LD(HL>,B 









TIO PORKE US; "A" TÍ¿12?. CCA e 


— DIREC PEEK DESEMSÁMBLE 


LL — —_— AA 


—45068_ 123 LD A,L Si 
45069 254 CP 2535 
e 45072 10 LD A, (BC) 
45073 176 OR B- 








E 
S 
e 
e 
e 
E 
Es 
e 
ES 
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O AZ 
45090 20 INC D 
45091 122 LD A,D 
45092254 —CP-—————288-——— 
45095 26 LD A, (DE) 








45103 188 CP € 





45109 176 OR B 


45128 202 JP Z. 


45135 
45130 O  NOP AS 
43131 179 OR E 
45132 1935 JP 45074 


45153 179 .0R E 
45154 42 LD HL, 





44080 


45159242 —JP-P, ———45167 ——— 
45164 195 dl 


45169 





45184 2 a. 





—45185—179—0R-E-— 
43186 4 INC B 
"45187 120 LDAÁ,B a 





45188 254 ga A 255 





435204 179% OR E 
a a par - e 
43208 O NOP 


45209 180 OR H 








45224 O NOP 





45225 O NOP 
522 6-04———H9SP——————————— 


4535227 O NOP 








-45104-242-—JP.P, 45110 | 


A E 
A As 


Z dl 
de Ñ pa A 
il | 


Dt de me 
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A | 
AU Cm ros e 
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PROTECEFON 


Con esta rutina podrás proteger 
los programas de una forma muy ori- 
ginal. 


:000 BORDER 1: PAPER 1: TNK 7: CLEAR 31999: 
¿010 PRINT AT 0,6) "PROTECCION SOFTWARE" 


¡020 PRINT AT 2,0¡*"ESTE PROGRAMA INCORPORA UNA RUTINA EN CODIGO MAQUINA QUE PERM 

[TEREMUMERAR —TODAS LAS LIMEAS  DELPROGRAMA. * 

¡030 PRINT AT 7,0/*PERO LA RENUMERACION SE REALIZADE UNA FORMA MUY ESPECIAL 
LARUTIMA INTRODUCE AL PRIMCIPIO DECADA NUMERO DE LINEA EL CODIGOSB GUE CORRES 

*ONDE A LOS DOS PUNTOGS"*:", SEGUIDAMENTE — INTRODUCE UM O Y A CONTINUACION EL HUME 

10 DE LIMEA.* 

:040 PRINT AT 14,01*COWN ESTE SISTEMA SE CONSIGUE GUELAS LINEAS DE PROGRAMA HO SE 
PUEDAN NI MODIFICAR HI BORRAR," 

:050 PRINT Al¡"PULSA TECLA PARA CONTINUAR": PAUSE O 

:060 CLS : PRINT AT 0,61 "PROTECCION SOFTWARE * 

¿070 PRINT AT 2,0/*51 PULSAS BREAK PODRAS COMPROBARQUE ESTE PROGRAMA YA A $100 

TRATADO CON ESTA RUTINA INTENTAMODIFICAR ALGUNA LINEA Y COMPROBARAS GUE LA 
LINEA MO SE PUEDEMODIFICAR,* a 

:0860 PRINT AT 10,0¡ "PARA TRATAR OTRO PROGRAMA CON ESTA RUTINA PRIMERO CARGA ESTE 
PROGRAMA SEGUIDAMENTE —PULSA 'NEW'+ENTER CARGA EL PROGRAMA A MODIFICAR Y PUL5SA 

RAMDOMIZE USAR 32000 ,Y MAGICAMENTE EL PROGRAMA SE HABRA TRANSFORMADO. * 

¿OPO PRINT Ali *PULSA TECLA PARA CONTINUAR": PAUSE O 

2100 REM RANDOMIZE USAR 32000 

¿110 DATA 237,107,83,92,1,19,0,17,16,39,213,229?,237,91,75,92,175,237,02,2239,20P, 

200,197,114,35,115,353,78,33,70,33,9,235,193,9,235,24,228 

¿120 PESTORE : FOR a*32000 TO 32037: READ b: POKE a,b: NEXT a 


CONVERSOR 


Esta es una pequeña rutina en 
código máquina diseñada para con- 
vertir números en base dieciséis a 
base diez (Hexodecimal — Decimal). 


3 BORDER 1: PAPER 1: INK 7: CLEAR 60712: LOAD “”CUDE 
10 PRINT AT 0,0¡*ESTE PROGRAMA ES UN COVERSOR EXADECIMAL A DECIMAL.” 
20 PRINT AT 3,01"EL PROGRAMA HA SIDO REALIZADO ENTERAMENTE EN CODIGO MAQUINA, * 
ZO PRINT AT 6,0;*SU RAPIDA VELOCIDAD DE COVERSIONES LO QUE LE DIFERIENCIA 
DE OTROS PROGRAMAS. * 
30 PRINT AT 10,0¡“"LÁ RUTIMA SE LANZA CON RANDOMIZE USR 40713, * 
50 PRINT AT 13,01) "INTRODUZCA EL MUMERO EN EXADECIMAL Y PULSE ENTER EL PROGRAN 
A TEDARA EL MUMERO CONVERTIDO A DECIMAL." 
60 PRINT AT 17,101 *DAT0S RUTINA* 
70 PRIMT AT 18,0/ "DIRECCION IMICIO=40713 
BO PRINT hi *PULSE TECLA PARA EMPEZAR * 
$0 PAUSE 0; PRINT Aij¡ “PULSE 6 PARA SÁLIR AL BÁASIC*:; RANDO-MIZE USAR 60713 
100 STOP 
9999 SAVE "“CONVERSOR* LINE 5: SAVE *CM*CODE 6£0713,133 


LONGITUD “133 Bitoea* 












LF 
A ENZO GARRIDO COME vecs 


RAGAJO SOFTURRE 











me! EUGENIO GARRIDO Gomez" 


SOFTIARE a 


No PARE EL CASSETTE ( 





GATOS EU a 
OMHROAE + 


Intenta salvar a las pobres pulgui- rd 
tas que se encuentran en lo alto de la B2, is $ 137 ¿62 > 
gruta. Pero ten cuidado con la mosca 36,72,140,192 
E | ] 3 J ¿ ' 


asesina que está siempre vigilando y 


te puede devorar. ! Xx ! 
PULGÁA Los controles del juego son: 124,174,254,124, 
l: Salto a la izquierda. E is e IA AE 


P: Salto a la derecha. | | A 
ue=P! EUGENIO GARRIDO GOMEZ"SS"*  5a,20,18,sa' 


GRUPO DE TRABAJO SOFTIARE SAY 2.c0,:52, 220 


60,40,72,102 


¿LA PULGAS coso en... 


aos 126, 

139,656,36,231 
cy 

NO PARE EL CASSETTE 


66,165,153,126,90,255, 189, 129 
255, iy LO 3, 0,0,0,0 

200 , 255, 255, 255, 255,/63,15,3 
225,225 ,/255/255,+255,/,/252,240,19 
255,252,240,192,0, 0,0, a 

an 127,5B3,31L, 15, zz dp 


60,110,137Y,255,24,24,24,24 
136,74,52,42,172,90,50,50 
189,91,120,120,55,51,15,0 
1082,153,90,6084,90,255,165,155 
141,1135,20,50,63,453,3530,0 
143,94, 63,43, 39,9,0, a 
169,70,0,0,0,0,0,0 











Hs 
102,153,90,60, 
90,255,189,129 








¿ERA O Ml me 








$4 0 0 O 0-00. 0.00. O 


S POKE 23458,0: LET w8="7?7": LET níw0: LET re=180 
10 LET vidas=3 
100 GO SUB 5000 
4140 LET-r=0: LET-x=2115 -LET-y=1INT (RANDAJO)5 LEFT e=3 7 -LET-n=9:-LET pun=0 
115 POKE 23474,0: POKE 23673,0: POKE 23672,0 
120 IF INKEYS="p" OR INKEYS="P" THEN G0 SUB 900 
130 1F INKEYS="1* OR INKEYS="1" THEN GO 5UB B00 
190 PRINT AT x,yI INK 1/)*?": GO SUB 1000 ; 
150 1F x=] AND y=28 THEN IF CODE SCREENS (1,29)=0 THEN LET xi: LET rer+i: PRIN 
TATO0O,251 FLASH 1)"GRACIAS”*: 60 SUB 1000: FOR 1í*=0 TO 20: BEEP 1/100,1: NEXT 1; 
FOR im29 TO 31: PRINT AT 1,11*?": PAUSE 10: BEEP 1/100,0: PRINT AT 1,11” *; NEXT 
í:3 PRINT AT m,nj" *; LET mei?: LET n=wB: PRINT AT m,n¡*?*: PRINT AT 0,231” 


151 IF x=1 AND y=3 THEN IF CODE SCREENS (1,2)=0 THEN LET rer+1: PRINT AT 0,05 F 


LASH 11/"GRACIAS": GO SUB 1000: FOR iwO0 TO 20: BEEP 1/100,1: NEXT 4: FOR í=2 TO O. 


STEP -1: PRINT AT 1,11*?*": PAUSE 10: BEEP 1/100,0: PRINT AT 1,11" *: NEXT_i4: PR 
INT AT m,ni*” *: LET mesiéó: LET n=14: PRINT AT m,ni*7?*: PRINT AT 0,01” » 
160 1F r=2 THEN GO TO 6000 
=00 60 TO 120 
BOO REM Salto Izquierda 
605 PRINT AT x,y1*”?": BEEP .05,-10: BEEP .02,30: 60 SUB 1000 
B1O LET p=y: FOR z=0 TO p: LET xex-=1: LET y=y-1i IF CODE SCREENS (x,y)*=0 OR xt0 
THEN LET x*ex+1: LET y=y+1: GO TO 650 
812 GO SUB 1000: PRINT AT x+1,y+1)* “¡AT x,yl INK 11*7?*: NEXT z 
650 LET p=x*1: FOR h=p TO 21: LET xwx+1; BEEP .01,-10: GO SUB 1000: PRINT AT x- 
1,y)" *: IF CODE SCREENS (x,y)=0 THEN LET x=x-1: PRINT AT X,YI INK 11*?": GO SUB 
1000: PRINT_AT_X,Yj¡_ INK_11*?"; BEEP 0.05,-10: BEEP_.02,30: RETURN 
860 PRINT AT x-1,yp" “JAT x,y) INK 11*?*: NEXT h 
870 PRINT AT X-1,Y1* “: LET X=21: PRINT AT X,Y] INK 11*?": 60 SUB 1000: RETURN 
$00 REM Salto Derecha 
905 PRINT AT x,y1"?": BEEP .05,-10: BEEP .02,30: GD SUB 1000 
910 LET p=31-y: FOR z=0 TO pi LET x=x-1: LET y=y+1i 1F CODE SCREENS (x,y)=0 OR 
(0 THEN LET x=x+1; LET y=y-1: 60 TO Y30 
912 GO SUB 1000: PRINT AT x+1,y-11* “¡AT x,y) INK 151*?*: NEXT z 
950 LET p=x+1: FOR h=p TO 21; LET x=x+1: BEEP .01,-30: GO SUB 1000: IF CODE SCR 
EENS--(x, y 120 -THEN-LET- "=x=1:-PRINT-AT-X, Y) -INK-14*7?*3—BEEP--01,30: BEEP .05,-10: 
BEEP .02,40: GO SUB 1000: PRINT AT X,YI INK 11*7?"; RETURN 
960 BEEP-01-10:—PRINT-AT x= yr" “AT xy H INK-114*7?"+ NEXT h 
970 PRINT AT X-1,]" *: LET Xx=21: PRINJ AT X, YI INK 11*?": 60 SUB 1000: RETURN 
999 GO TO 200 k 
1000 REM MOVIMIENTO MOSCA 
1010 LET mism: LET nisn: PRINT AT m,nj*?*"1 
1011 1F mex-1 OR mex THEN IF n=y THEN GO TO 35100 
1013 1F nty THEN LET n=n+1: IF ni=0 THEN GOD TO 1030 
1015 IF nm>y THEN LET n=n-1: IF nií=0 THEN GO TO 1030 
1018 1F m>x THEN LET mem-1: IF ni=0 THEN GO TO 1030 
1020-1IF-—móx- THEN-LET-mem+11-IF-nmi=0-THEN-G0 FO-1030 
1030 1F CODE SCREENS (m,m)=0 THEN LET m=ml; LET n=unl 
1059 PRINT-AT mi ni" "AT mn?” 
1060 RETURN : 
2000 PAUSE 5 
4000 60 TO 500 
"000 REM ESCENARIO 
s010O BORDER 2: PAPER 7: INK O: BRIGHT O! INVERSE O: OVER O? CLS 
5020 PRINT AT 2,01 PAPER 21 INK 21*??????"] PAPER 7/*"7??*/¡AT 3,01 PAPER 2... ?..." 
| PAPER 71*?"]AT 4,01 PAPER 21*????*"j] PAPER 71*?"¡AT 3,01 PAPER 21*????"JAT 6,0] 
.2777*1 PAPER 71*??"1AT 7,01 PAPER 21*"???") PAPER 71*7?"/AT 8,01*?" po 80 
2022 PRINT AT 11,05 PAPER 11 INK 11*?7??"j PAPER 71*??"/AT 12,01 PAPER 11*??"1 PA 
PER 71*"?"1AT 13,01 PAPER _ 11*??"1AT_14,01*??*) PAPER 71*??"1AT 15,01 PAPER 11*7??* 
¡AT 16,01*?*"1 PAPER >71*?"j)AT 17,0) PAPER 11*?*/AT 18,01*??"] PAPER 71*??"¡AT 19, 
O PAPER 11*?"] PAPER 71*?" 
25024 PRINT INK 3AT 13,81*??*) PAPER 31*??*") PAPER 7/1*?"JAT 14,101*?"1 PAPER 31” 
P*pAT 15,111*???*¡ PAPER S1*7?*1AT 16,71*?7?*"] PAPER 31*????*"] PAPER 71*7?*18T_17, 
$1*>*j] PAPER 31*???*/AT 18,101*???"j PAPER ?21*??"¡AT 19,1014*?*"1] PAPER 31*7?*j PAP 
ER 71*?*" . 
5026 PRINT INK 41AT 15,191*?*] PAPER 41*?*¡AT 16,201*??") PAPER 71*?*JAT 17,181” 
?>9* PAPER 41*7?*"] PAPER ?71*?”* 
2028 PRINT_INK Sj1AT 4,121*??") PAPER _51*???"]4T1_ 5,14) PAPER _71*7?*1 PAPER 317777. 
"1 PAPER 71*??"/A7 6,151 PAPER 51*???*") PAPER 71*?*¡AT1 7,131"7?"] PAPER 31*????") 
AT-8,141-PAPER-74*?*4 -PAPER-31*???"4-PAPER-74*??*4 -PAPER-S54AT-P,151+*?7??"A7-10,1 
1 PAPER 71*?"] PAPER 51*?"j PAPER 71*?” 
5030 PRINT INK 1447 2,221"??*1 PAPER 11*????7?7??7?"1AT.-3,24j PAPER 71*?"j PAPER 15 
2777797" 1AT 4,271 PAPER 71*?*1 PAPER 11*????*"JA7 5,281*?7???*]AT1 6,25] PAPER 71* 
9" PAPER 11*???2??"¡A4T 7,26) PAPER 71*?*] PAPER 11*?????"¡AT 6,30) PAPER 71*"7?*1 
PAPER 11*?* | 








de au a 
+ 











SO32 PRINT AT 12,231 INK 21*??"9 PAPER 21*???7?7?7??"¡ AT 13,253) PAPER 71*?"j PAPER 
21*77777?"] PAPER 7¡AT 14,281*"?"j PAPER 21*"??77?*14T1 13,29)*???*] PAPER 7/A4T 16,27 
1*??*"] PAPER 21*???" 
SO035S—PRINT-AT-17,291-1INK-21*?*4-PAPER-24*?P?*4A7-18,301*??"44T-19,28) PAPER-7)*?7? 
"1 PAPER 21*"??"¡4T7 20,301 PAPER 71*7?"j PAPER 21*?*/A4T 21,311*?" 

3038 PRINT AT 0,07 INK 27] FLASH 1 *HELP!** AT 0,271"HELP!*1 FLASH 01 INK Z1AT-10, 
117" INK 447 11,301"?”"J47 1,2) INK 11*7?7"]4T 1,29)*?" 

3040 PRINT AT 11,28] INK 21%?" INK 4/4T 13,101*7?": PRINT AT 0,101] *VIDAS "Ividas 
| FLASH 118 

300 RETURN 

3100 REM Pulga muerta 

3110 PRINT AT x,y1" * 

3120 LET ae ?77777797 777777772777 P OPI PIO PI IPPO FP PP PPP PPP OOO 

3130 LET com PPP RIP RPP PROP . 


3140 PRINT AT x-1,y)" *: PRINT AT 0,01 FLASH 11*000H! "¡AT 0,271 *D00H! * 


—2 00 FOR a=1 TO LEN as; LET be=c6(a); BEEP ,05,60-a; PRINT_INK OjAT m,njas(a)j 1 


NE 14T m*1,n/58: MEXT a 
3210 IF vidas>1 THEN LET vidas=vidas-1: 60 TO 100 
3400 BEEP .03,20: 00 SUB 6000 . 
3300. PRINT. AT 0,9] PAPER 11 INK 7] “VIVISTES:*] PAPER 2) INK óéjmímutos/”":"¡5eg 
3510 60 TO 4020 
6000 60 SUB 6000: PRINT AT 0,9%) PAPER 11 INK 7¡ "TIEMPO: "3 INK 6) PAPER 2/¡HMINUT 
OSt*:*"¡S5E50 
6010 1F t<re THEN LET re=t: PRINT AT 1,7) FLASH 1¡ "NUEVO RECORD": FOR ¿"0 TO 30 
——_STEP_3: BEEF 1/50,1: NEXT 1: FOR iw30 TO O STEP -5: BEEP_1/50,1: NEXT _1: PAUSE 
BO: PRINT AT 1,71” > 
—6020 LET terre: 60 SUB 60201 PRINT_ AT 1,91 PAPER 11 INK 71"RECORD; "j PAPER 21 1 
NK ójminutos|”:”"¡5eg : 
6030 PRINT Al¡"QUIERES OTRA PARTIDA(S/N) * 
603535 1F INKEYS="9" OR INKEYS="S" THEN 60 TO 10 
6040- 1F INKEYS="n" OR INKEYS="M" THEN RANDOMIZE USR O 
4045 G60 TO 6035 
600 REM Tiempo transcurrido 
BO10 LET t=((635S364+(PEEK 23674)+256* (PEEK 23673)+(PEEK 23672))/530) 
B020 LET minutos" INT (t/60) 
POSO —ET—se3* INT INT-At-Aminmutortó0++ 
6040 RETURN 
000 REM EMPIEZE — 
Y010 BORDER O: PAPER O: INK O: CL5 : CLEAR 60000: PRINT AT 21,011: LOAD **CODE 6 
4256: PRINT AT 21,01) LOAD ""CODE USR *a*": RANDOMIZE USE 408626: INK 7: PRINT AT 
21,101 FLASH 11 "PARA LA CINTA"_ —_ 
YPOZO PAUSE O: CLES : RUN 
94735 RUN 
97799 SAVE "LA PULGA* LINE POJ10: SAVE "*cm*"CODE 60826,73: SAVE "*"cm"CODE USR *a”, 17 
O 


vd 0.)0O.0. O € IMDO 060.00. .._..N.( ?5$O  OD.OASO 0 





HER 


Programa lector: Pedro Jesús 
Jiménez Bogal. 

Intenta rescatar a los pobres náu- 
fragos que se encuentran próximos a 
la base. Para ello posees un potente 
helicóptero. Cuando superes a la pri- 
mera misión, tendrás que curar a los 


náufragos. 





dl A 
EA ES 
LU a 


BEEP BORDER INT (RNDX7) : E n 










+01, 40: 


_ BEEP o NEXT n: PRINT AT 16,71” 








100 LET ax: LET b=y 





50 0 0. 06 06 0 0 0 9 


-PULSA UNA TECLA-" 









ao. >”: 







LET be="?P"”: 





PAUSE 0: CLS : 





GABITTIEMNPO: TE 








SLI 


LET € 


NI0VU. 


3.1. 





GO SUB 84 















IL ENICu 





















150 PRINT AT y, xjab1bS: PRINT AT y+1,x)cejds 
—A64-IF-y>=20 THEN GO TO 2800 -- —— 


165 IF x=23 AND y=18 AND he=1 THEN LET he=0: FOR o TO 2: PRINT AT 9,6)* 'NAUFR 
— AGO RESCATADO!" PAUSE 30: BEEP .1,15: FOR n=0 TO 25: PRINT AT Y ¿NT *7 PAUSE 25 — 


NEXT nm: NEXT q: 1F r=2 THEN GO SUB 9500 
170 60 TO 50 

500 IF x=10 AND y=19 AND he<i THEN LET he=1: LET rer+l: PRINT AT 21,101" * 
501 RETURN 

505 IF x=15 AND y=19 AND he<l1 THEN LET he=1: LET r=r+1: PRINT AT 21,15¡* * 
S10 RETURN 


£400 PRINT AT 10,0) INVERSE 1)" 'RECUERDA QUE DEBES ESCRIBIR CON MAYU 
SCULAS! ———*;¡ INUERSE O: GO TO 9008 ia ia TR 
—2300 FOR _n=0 TO 7: READ a: POKE USR "a"+n,a: NEXT_n: DATA 0,0,0,0,0,0,0,1 

8600 FOR n=0 TO 7: READ b: POKE USR "b"+n,b: NEXT n: DATA 0,0,0,0,0,0,0,255 

8700 FOR n=0 TO 7; READ c: POKE USR "c"+n,ci NEXT n: DATA 0,0,1,255,7,0,0,0 

8800 FOR n=0 TO 7: READ d: POKE USR "d*+n,d: NEXT n: DATA 16,56,196,194,254,252, 


16,254 
8900 FOR n=0 TO 7: READ e: POKE USR "e"+n,e: NEXT n: DATA 0,0,0,0,56,186,146,124 
8750 FOR n=0 TO 7; READ +: POKE USR "f"+n,f: NEXT n: DATA 0,0,0,0,0,0,0,255 
87960 FOR n=0 TO 7: READ 9: POKE USR *“g"+n,9: NEXT n: DATA 0,0,0,0,0,0,0,128 
2970 FOR n=0 TO 7; READ h: POKE USR "*h*+n,h: NEXT n; DATA 8,28,35,67,127,63,8,12 

73 FOR n=0 TO 7;" READ i: POKE USA d2am, 13 NEXT nm: DATA 0,0,128,255,224,0,0,0 
_?000 FOR _n=0 TO 7: READ J: POKE USR "j"+n,j: NEXT n: DATA BIN 00100010: DATA BIN 


10010100; DATA BIN 01001000: DATA BIN 00100111: DATA BIN 11001000: DATA BIN 000 
00100: DATA BIN 00101001: DATA BIN 00010010 
9001 FOR n=l TO 8: READ 1: POKE USR "1"+n,1: NEXT n: DATA 28,28,8,127,28,28,20,3 
4 
P002 FOR n=0 TO 7: READ m: POKE USR "m"*n,m: NEXT n; DATA BIN 11111110: DATA BIN 
11111110: DATA BIN 10000010: DATA BIN 10010010; DATÁ BIN 10111010: DATA BIN 100 
10010: DATA BIN 10000010: DATA BIN O1111100 
OO RETURN e A e O E A e a 
5008 PAUSE 100: CLS : PRINT AT 0,0) “cr crs * : PRINT AT 
—lL- 8 5%5mh-FICHA-PILOTO A*: PRINT-AT 2,0 amamos rear ca cea a * 
PO1O PRINT AT 35,1] "NOMBRE ¿*: INPUT n$; PRINT AT 5,15]n%: PRINT AT 10,156 
RADUACION <": INPUT 98: PRINT AT 10,135$9%; PRINT AT 15,11"ESTADO CIVIL ;*: INP 
UT ES; PRINT AT 15,15¡ES5 | 
9011 INPUT "DIFICULTAD (1/3)*¡D: 1F D>5S OR D<1 THEN GO TO PO11 
7100 PAUSE 300: CLS ; PRINT AT 1,15 BRIGHT 131*="33983]* "¡n6: BRIGHT O 


$110 PRINT AT 4,13 * SU LABOR CONSISTE EN SALVAR A LOS POSIBLES NAU 
FRAGOS PROXIMOS A SU BASE. 

_PARA_ESTA MISION DISPONE DE UN HELICOPTERO QUE USTED MISMO  TENDRA QUE MANEJ 
AR. LLEVE A LOS NAUFRAGOS A LA BASE 


—INCOVENTENTES:+ EL HELICOPTERO - SOLO TIENE-SITIO PARA-UN- HERIDO !LA MISION LA DE 


BE REALIZAR EN UN TIEMPO DETERMINADO. +....+...!” 
-9120 PRINT AT 18,05 yt ARRIBA 7 BZDA 5 ABAJO. ...6 

-—DCHA...8 : SALVAR... ..0 E 
9400 PAUSE 500: RETURN , Es 

9500 LET i=, 75: 1F tiempo<120/D THEN BEEP E; 33: BEEP 14,35: BEEP 1,31: BEEP 1,7: 
BEEP i, 14: PAUSE 15: BEEP 1,9: BEEP 1,11: BEEP 1,7: BEEP 1,-5: BEEP 1,2 


5600 PRINT AT 3,0; " ENHORABUENA! HA CONSEGUIDO SALVAR A Los 
DOS -—-NAUFRAGOS ————— DE-MORIR-AHOGADOS a dl = 
EN AGRADECIMIENTO A su ACCION EL MANDO SUPERIOR LE CONCEDE 78 MEDALLA .. 
"PROHUMANITAS*"* "> — : = 
5700 PAUSE 400: CLS * PRINT AT 5,05 " PERO ESTO NO E 
Ss TODO... TIENES QUE LLEVAR DEL ALMACEN A LA ENFERMERIA DE LA BASE 
EL BOTE DE MEDICINAS QUE HACE FALTA PARA CURAR A LOS DOS — * NAUFRAGOS HER 
IDOS. - INCONVENIENTES; E 
o ooTEN EL ALMACEN HAY 16 BOTES ¡CUIDADO! SOLO UNO ES EL CORRECTO. CUA 
NDO. LO COJAS SABRAS QUE ES EL. - ? -PARA REALIZAR LA LABOR 


TIENES UN TIEMPO DETERMINADO* 
—3201-—PAUSE-—1000:—FOR-—n=0- TO 20: RANDOMIZE-USR 3190: BEEP-—.01,303 NEXT mn . 
7702 BORDER O: RANDOMIZE : LET mi=INT (RNDÉE20)+1; LET vi=INT (RNDE3O)+1: FOR mwl 
TO 167 LET w$=INT (RND*20)+17 LET v=INT (RNDF30)+1: PRINT AT m,vV1*?*": PRINT AT HH 
1,vw15"?": NEXT m 
9703 PRINT AT 18,27;*?2?2??2*"1 PRINT AT 19,3151”"?*:3 PRINT AT 20,271"? 2": PRINT A 
T 21,275*?????*": PRINT AT 20,291*+": LET BOTE=0: LET x=5: LET y=4; LET T=0 


Mi 0 il o 


-9704 LET TeT+1: PRINT AT 1,22 "TIEMPO: "17: LET awx: LET b=y 





| 


a. 


juana 
7 


Ea 
bo 





9705 1F-T=125 THEN-.G0-TO- 9730 

9706 IF INKEYS="5" AND y>»0 THEN LET y=y-1 

9707 IF INKEYS="8" AND y<31 THEN LET y=y+1 

9708 IF -INKEYS="6" AND x<21 —THEN-LET-x=x+1 

9709 IF INKEYS="7" AND x>1 THEN LET x=x-1 

—9710 PAUSE IT PRINT AT OST INK 41*?"1 IF aA0)x OR b<c>y THEN PRINT AT a,bj” ” 
9711 IF ATTR (wl,vi)=60 THEN GO SUB 9720 

9712 IF x=20 AND y=29 AND BOTE=1 THEN GO TO 9724 

9713 IF ATTR (18,27)=60 OR ATTR (18,28)=60 OR ATTR (18,29)=60 OR ATTR (18,30)=60 
OR ATTR (18,31)=60 OR ATTR (20,27)=60 OR ATTR (21,27)=60 THEN GO TO 9717 

9716 60 TO 9704 

9717 PRINT AT x,y1*?": BEEP 2,20: PRINT AT 10,0) INVERSE 1/”"'SALAO! SE ENTRA PO 
R LA PUERTA *: INVERSE O: PAUSE 500: GO TO 9730 

9719 STOP 

9720 PRINT AT 0,Oj"LLEVA ESTE BOTE A LA ENFERMERIA!": FOR N=i TO 5: BEEP .1,20: 
BEEP .2,-20: BEEP .1,15: BEEP .4,-20: NEXT Ni: LET BOTE=1: LET vi=0: LET m1=0 
9721 RETURN 

9724 BEEP .2,5: PAUSE 5: BEEP .5,5: BEEP 1,12: BEEP .5,5: PAUSE 5/ BEEP .5,5: BE 
EP .5,14: BEEP 1,12: PAUSE 50 

9725 CLS : PRINT AT 3,0/*!''MAGNIFICO!! LO HA LOGRADO": PRINT AT 5,05 


" SU ACTUACION A SIDO DIGNA DE TODO UN HEROE. EL MANDO SUPERIOR A 
51 LO ENTIENDE Y COMO RECOMPENSA A TAN MAGNIFICA LABOR PASARA UST 
ED A DIRIGIR LA BASE MILITAR DE SALWAMENTO. 

"TrENHORABUENA!! 1” 
9727 PRINT AT 20,01 *-PULSA =J= PARA VOLVER Á JUGAR-= * 


9728 IF INKEYS="J" THEN CLS : RESTORE : GO TO 1 


9729 GO TO 9222 
9730 BEEP 2,-30: CLS : FOR N=0 TO 255 RANDOMIZE USR 3190: NEXT N 


9735 BORDER O: PRINT AT 5,0) PAPER 01 INK 2 BRIGHT 11 - SU INEPTIT 
UD HA OCASIONADO LA MUERTE DE SERES HUMANOS. 

ANTE TAL SITUACION EL MANDO MAYOR DEL EJERCITO LE CONDENA 4 ONCE M 
ESES Y UN DIA DE PRISION MAYOR. ; 

SE DA POR SUPUESTO QUE LE SERA RETIRADA LA CONDECORACION "*"PRO HU 
MANITAS" "SIENDO A S1 MISMO DESTITUIDO DE SU GRADO QUE AHORA SERÁ EL DE S 


OLDADO RASO” 

9790 GO TO 9222 

$800 FOR n=y TO 20: PRINT AT ntl1,xjabsjb8; PRINT. AT _n+t1,x¡c$id6: PRINT AT n,xI” 
“:* PAUSE 5: PRINT AT n,xi" "5 NEXT m: PRINT AT 21,x1*??": PAUSE 23 


810 PRINT AT 21,01” ": FOR N=-20 TO -26 STEP -1: BEEP .5,N: NEXT 
N: CLS : PRINT AT 4,05 =" EL *"1961* * nf : PRINT AT 5,2) 
"MURIO EN ACTO DE SERVICIO EN UN INTENTO POR SALWAR WIDAS HUMAN 
AS": 1F ES="CASADO" THEN PRINT AT 9,25 "DEJA MUJER Y 
4 HIJOS. SU DESCONSOLADA ESPOSA Y EL MANDO MILITAR SUPERIOR RUEGAN 


UNA ORACION POR SU ALMA" 
9815 PRINT_AT 1,01 
? >. 
9B14- FOR n=0 TO 31: PRINT-AT.0,n1*?*": PRINT.AT 21,ni"?": NEXT ni FOR m=0. TO 21: 
PRINT AT m,01*?*: PRINT AT m,311*?*": NEXT m 
9820 PRINT AT 15,1/"DESCANSE EN PAZ :*: PRINT AT 16,2/*DON "¡n8|* “j96)” DEL EJE 
RCITO*: PRINT AT 17,21"DEL AIRE" 
$823 BORDER 7: FOR N=1 TO 2: BEEP 1,0: BEEP 1,2: BEEP .5,3: BEEP .5,2: BEEP 1,0: 
NEXT ON 
$830 FOR N=1 TO 2: BEEP_ 1,3: BEEP 1,5: BEEP 2,7: NEXT _N 
9835 FOR N=1 TO 2: BEEP .75,7: BEEP .25,8: BEEP .5,7: BEEP .5,5:: BEEP .5,3: BEE 
P-—,5,2: BEEP-—1,03—NEXT-MN 
9840 FOR N=1 TO 2: BEEP 1,0: BEEP 1,-5: BEEP 2,0: NEXT N 
5850 PAUSE 10: CLS : PRINT AT 10,01” OTRA PARTIDITA ? (S/N)* 
9860 IF INKEYS="N" THEN RANDOMIZE USR O 
79865 IF INKEYS="S" THEN 60 TO $890 
5870 GO TO P8640 
9890 PAPER O: CLS : PAUSE 30: PAPER ?: CLS : BORDER 7: PRINT Rh0¡"? 1962 Sinclair 
Research Ltd": PAUSE 100 
9900 PRINT AT 10,01 BRIGHT 11* TRANQUILO HA SIDO UNA BROMA  _": BRIGHT 0: PAUSE 
100: CLS : RESTORE : GO TO 1 


. ? 





GRUPO DE TRABAJO SOFTUARE S.A 


IRUANDO 


VUIAJANBO 





Intenta llegar al final de tu viaje te- 
niendo en cuenta el tráfico que viene 
en sentido contrario. Puedes elegir la 
cantidad de tráfico en sentido con- 
trario. 


«NO PARE LA CINTA CARGANDO 





4 REM IARRIOOOOIICA: : . 
o 2 REM Ho. —6.T.S He ds E eL a 
3 REM RRRRRRRRIRRIARI: 
—2LET PUN=O; LET S=15; LET C=10; LET As=" E E 
10 BORDER 4: PAPER 4: INK O: CLS 
— PAPER —Aáqá ————_—_——_—KÉKXÁé ——___— JA 
12 PRINT INK 15 FLASH 1¡AT 0,6)*"---=< VIAJANDO >=---" 
13 PRINT AT 2,15j"*GRUPO DE TRABAJO SOFTWARE,S.A."*JAT 3,91*"?1985 BASIC-16kK* 
"14 PRINT AT 4,05 PAPER 21 INK 7;*DEBES LLEVAR TU COCHE A LA META PERO 1 ¿CUIDAD 
or! El TRAFICO ESTAMUY MAL Y LA CARRETERA SE HACE CADA VEZ MAS ESTRECHA. 











qa PRINT AT 9,05 PAPER 6; INK 0) “LOS ESTRECHAMIENTOS DE CALZADA TE SERAN INDI 
CADOS MEDIANTE ESTECARACTER Pa _TEN MUCHA FREGAVETONSOLO SE VIVE LINA NEL > 











—r _ _ A—_—_—_—__—_—__—_—_— _—_—__ _—_—_— FÉ ———————————— a 


16 PRINT AT 14,03 PAPER 23 INK ?j"PODRAS MOVER TU COCHE A AMBOS LADOS PULSAN 


Aa—_—__—_—_______ A A e a n= 


DO QA 0 I PARA IRA LA IZQUIERDA, Y P O E PARA IR A LA DERECHA. 
17 PRINT PAPER 7j INK 2/AT 19,0; "SELECCIONA EL VOLUMEN DE TRAFICOGUE CIRCULARA 
POR LA CARRETERA 1-POCO 20-MUCHO a : | 
18 INPUT “TRAFICO: "1TR: 1F TR>20 OR TR<1 THEN GO TO 18 ¡ - 
- 19 LET TR=21-TR 
30 PRINT R1j PAPER 21 INK 7I“PULSA CUALQUIER TECLA PARA JUGAR” 
95 PAUSE O: PAPER 7: CLS 
100 POKE 23692,255: LET PUN=PUN+1 OS E a EROS 
110 PRINT AT 5,Sj INK 112" : 
"1115 LET B=S 
200 IF INKEY$="q" OR INKEYS="i" OR INKEYS="8”" OR INKEYS="1" THEN LET S=S-1: 1F 
S<1 THEN LET S=1 E | 
205 IF INKEYS="e" OR INKEYS="E" OR INKEYS="p" OR INKEYS="P" THEN LET S=S+1: 1F 
S>30 THEN LET S=30 
250 LET x=INT (RND*3)+INT (RNDé-1): LET C=C+x 
251 IF C>20 THEN LET C=20 
252 1F CX1 THEN LET Cul _ 


AA 





a A A e 





K—_—_—— ooo OS o 








CA A O A A A E O A A A CACA A A A A A > 


— HO —PRINT-AT 21 e; IMK-—_2R2EPA 2 E a AT im E 
320 PRINT 


350 IF PUN=100 THEN READ A%: BEEP 1/100,50: PRINT FLASH 1 PAPER 2j INK 6jAT 20 
c-24">* 
, . 











2351 IF PUN=150 THEN READ A$: BEEP 1/100,50: PRINT FLASH 1j PAPER 23 INK 6j AT 20 | 


C-23"2" 
, 

352 IF PUN=200 THEN READ At: BEEP 1/100,50: PRINT FLASH 1j PAPER 2j INK 6jAT 20 

0-2?” | 

3551 F—PUN=250—THEN-READ-AS:—BEEP—1/100/501—PRINT-FLASH-14—-PAPER—24—INK-644T--20-, 
¿0-2 ">" LT AMAEeaE ” 
354 IF PÚN=300 THEN READ A$: BEEP 1/100,50: PRINT FLASH 11 PAPER 2j INK 6jAT 20 LO ECORRaOHER 
0-2?” | | 

255 IF PUN=600 THEN READ AS: BEEP 1/100,50: PRINT FLASH 1i PAPER 2] INK 6jAT 21 an 

Canos | =E 
, : . 

356 TF PUN=350 THEN READ A$: BEEP 1/100,50: PRINT FLASH 15 PAPER 21 INK 6jaT 20| 139, 255,165, 
¿C-zj >?” | 355,1989,255, 
337—1F-—PUN=900—THEN-READ-A8:—BEEP-1/100,50: PRINT-FLASH-14-—PAPER-24-INK-61AT-20 

¿.=21* 7?” 135939,24, 

353 TF PUN=4350 THEN READ A%s7 BEEP 1/100,50: PRINT FLASH 1] PAPER Z[ INK G6jAT 20 

ESUE css 


359 IF PUN>S5S00 THEN GOD TO 8000 

360 IF PUN=4835 THEN PRINT FLASH 15 INK 2/AT 20,Ci"META" 

390 LET H=INT (RND+TR) 

400 IF H=ú AND LEN A%s$>2 THEN PRINT AT 20,C+1+INT (RND*(LEN E id 


73,146,73, 
146,73,146, 


500 IF CODE SCREENS (5,5)=0 THEN GQ TO 4000 3,146, 
950 PRINT AT 4,B5* * hs 
1000-60 TO- 100 
1500 REM DATA CARRETERA > 92,244,252, 
y 1 , ———— + An 7] dá del dl dl a 07 E El 1] a a a lá 
a geopaciona) ( | FER ES 34,392,244, 
6000 REM EXPLOSION | 252,54, 
£010 FOR Z=0 TO 3 | 
6012 PRINT AT 4,Bj" "¡AT 5,Sj¡ OVER 11"?"> BEEP 1/5,0: PRINT AT 5,5)*?*": BEEP 1/5| EE 
,-10: PRINT AT 5,5;"?2*": BEEP 1/5,-15 58,47,63, 
6013 NEXT Z | | | 
6017 PRINT AT 5,Sj" ": BEEP 1,-40 | 42,558,477, 
5020 G0 TO” 8000 ¡ | 63,42, 


8000 REM FIN 


Ñ 


8010 PAPER 4: BORDER 4: INK 0: CLS dat 

9011 PAPER 7: PRINT INK 15 FLASH 1jAT 2,6)"---=<% VIAJANDO >=---" 

8012 PRINT AT 4,1¡"GRUPO DE TRABAJO SOFTWARE,S.A.*¡AT 5,81" ?1984 BASIC-16K* 14-159, 255, 
8013 IF PUN<500 THEN PRINT AT 8,4 PAPER 2j INK 7) "“RECORRISTE....+.+:*) INVERSE 1 

- ¡PUN INVERSE 01”. KM.* (139,36), 165) 
8014 IF PUN>=SO00 THEN PRINT AT 8,5; "ALCANZASTE LA META."j FLASH 1jAT 10,71”! 'FEL 355 199. 
ICIDADES!!*": GO SUB 8200 : 

8015 PRINT AT 12,2; FLASH 1) INK 13"PULSA:": PRINT AT 14,2¡"S-PARA JUGAR OTRA PA JE 
RTIDA“¡AT 16,2: "N-PARA CARGAR EL PROX. PORG.*¡AT 18,2i"E-PARA DESTRUIR EL PROGRA ( 

MA" ss 145,82,44, 
8100 IF INKEYS="S" OR INKEYS="s" THEN RUN | | '—(35,196,52, 
S110 IF INKEYS="N" OR INKEYS="n" THEN BORDER 7: CLS ; PRINT. AT 20,11; FLASH 11"P 

ULSA PLAY"¡AT 0,05: POKE 23613,0: POKE 23614,0: LOAD **" ¿(4d ,137, 
8120 IF. INKEYS$="e" THEN NEW ... 

8130 IF INKEYS="E" THEN RANDOMIZE USR O | a 

AS e (RNDF10) 137,66,0, 
2200 REM MELODIA 1253,1,0, 
8205 RESTORE 8500 : 66,145, 
8210 1F INKEYS=" “ THEN RETURN | | 

8220 READ Y He 

8230 IF Y=200 THEN RETURN 

8233 1F Y=100 THEN READ Y: PAUSE 10 | a, 565 ¿BB, 
8240 BEEP .7,Y 56,36,385, 
8250 60 TO 8210 | 25,0 

8500 DATA 7,7,9,7,12,11,100,7,7,9,7,14,12,100,7,7,16,14,12,11,9,100,17,17,16,12, ( O, 
-194,12,200 


-2000-—BORDER—15-—PAPER-—15—INK—15—CLEAR-—60825:—PRINT-AT—10,-12+—FLASH-14-—INK-—2*CARG 
SS ANDO": LOAD “CHR*$"“CODE USR *a*: LOAD *"CODE ; RANDOMIZE USR 60826: CLS 

5010 PRINT AT 10,9; FLASH 11 PÁPER 2; INK 6; “PARA LA CINTA": PAUSE 200 

020 RUN 

9455 GO TO 1 
B 9500 SAVE "VIAJANDO" LINE 9000: SAVE "CHR$"CODE USR "“a”,64; SAVE ”* “CODE 60826,7 
: > 





14 


JUG. 1: BOLA JUG.2: 
La 1 





TENIS 


Este es el típico juego de tenis, en 
el que dos jugadores se pueden en- 
frentar en un partido. Pero este pro- 
grama tiene una pequeña variante, 
puedes jugar contra tu Spectrum eli- 
giendo el nivel de juego y el número 
de pelotas por juego. Eo: AMGEL GARETA DE. 












1 REM | PPPPPPITTRPIT PITT??? ?GDV SOFTWA 
RE PRESENTA: ? ez TENTS > | ? IA - 





ARA ARA A AE AE O e e 1 1] A e di E a 
NIS”" LINE 1 | 


ji Na |, 









12 LET NIVeO : 

14 LET añ=" INFORMACION: PPPPPPPPPP? JUE 
GA _AL_TENIS CON OTRO JUGADOR-O CONTRA TU SPECTRUM. AL JUGAR _—CON TU MICRO PODRAS 
SELECCINAR SU NIVEL DE JUEGO: 1-F 
e APR: | | z da 


e Pasa - Ps pa 













32 LET NIx=O: 
35 IF J=1 THEN BEEP 1/50,30: INPUT "NIVEL (1-5):“¡NIV: IF NIV>S OR NIV<1 THEN 
37 LET NIV=18+(64-NIV) 


-40.LET-A=10: LET B=10: LET »h 
. MA in penes 
A ay e Er Su ' 





e 





o 1 as]: e O SS E A EN A A a 

100 PAPER 4; INK O: PRINT AT X1,Y1j" "¡AT X,Y1"?": LET Xl=X: LET Yi=Y 
110 LET ri=IN 44510: 1F ri<255 THEN IF A>? THEN PRINT AT A+1,6¡" *: LET A=mA-1: 
PRINT AT A,6j"?* 


A O. 


li 
an 











a a 


230 
290 


RN 


300 


320 


IF X>=1á6 THEN LET N=¿ 

IF X<=ó THEN LET N=2 

IF j=2 THEN GO TO 400 z 

IF Y<NIV THEN GO TO 500 

40H THEN 60 TF 0500 — 


INK O: PAPER 4: IF B>X THEN 1F B>? THEN PRINT AT B+1,25;* *: LET B=B-1: PRI 


NT AT B,251"7?" 


330 
540 
400 


L” 22. 


410 


IF B<X THEN IF BX1S THEN PRINT AT B-1,251* "; LET B=B+1;5 PRINT AT B,251 "7?" 

GO TO 500 | 

INK 03 PAPER 4; LET r3*=IN 57342: IF r3<255 THEN 1F B>2 THEN PRINT AT B+1,25 
LET B=B-1: PRINT AT B,251*7?” 

LET r4=IN 49150: IF r4<%255 THEN IF B<15 THEN PRINT AT B-1,25;* *: LET B=B+1 





—PRINT-A FB 25422 ___—_———— - 


53500 


IF Y=24 THEN IF Xx=B OR A=B- dl _OR =B+1 THEN LET D=1; BEEP 1/100,0 


800 1F N=I THEN LET X=X-1- 


s10 
820 
830 
1000 
1100 
1110 


IF N=u2 THEN LET X=x+1 
IF D=2 THEN LET Y=Y+1 
IF D=1i THEN LET YeY-1 
GO TO 100 

REM Gana jug 2 


BEEP 1,-10: LET bowbo+1: LET p2=p2+1; 60 SUB 5040; LET x="INT (RNDFB)+ó6: LET. 


yelO0; LET xlex: LET yli=y: LET n=INT (RND2)+1: LET d=2 


1115 
1120 
-A 200 
1210 


LE bosbola THEN 60 TO 2000 

BEEP 1/4,30: RETURN 

REM Gana Hug 1 

BEEP 1,-10: LET bo=bo+1: LET pi=pi+1: GO SUB 3040: LET x=INT (RNDFS)+6; LET 


y=22: LET xix! LET yiey: LET n=1NT (RADZ2)+1: LET d=l 


1215 IF bo»+bola THEN 60 TO 2000 

1220 BEEP 1/4,30: RETURN 

2000 REM Fin 

2005 LET A=15: LET Bw15: GO SUB 5040 

2010 PRINT AT 10,115 BRIGHT 1f$"GAME OVER”": FOR +=1 TO 3: FOR z=1 TO 50 STEP 6: 
BEEP 1/50,7: NEXT 7: FOR z=50 TO O STEP -8: BEEP 1/100,2: NEXT-z 

2020 NEXT +4 

2030 1F pi>=p2 THEN PRINT AT 1,65 OVER 17] FLASH 13 PAPER 01 INK 277” "FAT 3, 
61 INVERSE 11” . 

2040 IF p2>=p1 THEN PRINT AT 1,203 OVER 11 FLASH 1j PAPER Oj INK 75” "ars 
¿201 INVERSE 11” z 

2050 PRINT AT 16,81 PAPER 2; INK 7/"PULSA UNA TECLA * 

2060 PAUSE 200: BEEP 1/30,30: IF INKEYS<>"" AND INKEYS<>"n" AND INKEYS<>"N" THEN 
GO TO 30 

2065 IF INKEYS="n" OR INKEYS="N" THEN BORDER 7: PAPER 7: INK O; CLS : PRINT AT 2 

0,1115 FLASH 11"PULSA PLAY"¡AT 0,01: LOAD *"*" 

2070 GO TO 2060 

£4000 STOP 

5000 REM Dibujo 

=010 RESTORE 35020: FOR z=USR "a" TO USR "b"-1: READ +; POKE z,+f2 NEXT: z 

5020 DATA 0,60,126,126,126,126,60,0 

S5O3O BORDER 1: PAPER 1: INK 7: CLS 

"040 INK 7: PAPER 1: FOR z=6 TO 16: PRINT AT zx,5j PAPER 15 INK 21"?"5j PAPER 4;” 

"3 PAPER 11*?": NEXT z | 

50350 PRINT AT 5,5) INK 21*?222?PPP222222P77?PPPPP"JAT 17,51 "27227772772 22777777?? 

Pis A ”. - 

5060 PRINT PAPER OJAT 1,61 "JUG.1:"jAT 1,14]"BOLA"jAT 1,20/"JUG.2:*" 

$055 PRINT PAPER 41 INK OJAT A,á61"?"JAT A+1,61"?"¡AT E,231"?"1AT B+1,231*?” 

5070 PRINT AT 19,61 PAPER 2) INK 7¡"SOFTWARE GDV  ? 1984*¡AT 20,6)"POR: ANGEL GA 

RCIA D.* 

5080 PLOT 0,0: DRAW 255,0; DRAW 0,175: DRAW -235,0: DRAW 0,-175 

5090 PLOT 30,0: DRAW 0,175: PLOT 225,0: DRAW 0,175 

5095 PLOT 30,30: DRAW 195,0 

5097 PLOT 30,138: DRAW 195,0 

5100 PRINT PAPER 6jAT 3,61" "¡AT 3,141" "¡AT 3,205” "| INK 1¡AT 3,8 

3P1JAT_ 3, 15/BOJAT 3,22/P2 

5150 RETURN 

P000 REM ======== === 

9500 REM ---GRABACION=---- 

9510 SAVE "TENIS" LINE 1 

95820 PRINT "VERIFICANDO": VERIFY "TENIS" 

9530 BEEP 1/50,30 





TRE TETGUAL 


Programa lector: Luis Altadill For- 
nes. 

En este juego tú controlas un 
Tretzi que es un simpático robot. Tu 
misión es destruir el megatón cen- 
tral, que está en el centro del laberin- 





3 FOR. N=0. 07 71 READ A? POKE USR “A"+N,A: NEXTON 


5 FOR -N=Q TO 7: READ Az POKE USA "CAN As NEXT N. 
E FOR N=0 TO 7: READ A: POKE USR “D"+N,A: NEXT ON 
10 DATA 56,60,16,62,56,36,16,28 
12 DATA 640,126,255,255,126,60,126, 150 
14 DATA 0,0,0,24,60,102,255,36 
156 DATA 40,126,199,16,215,199,126,24 
ZO PAPER 6: BORDER 6: INK O 
40 CLS : CLS 


60 PRINT AT 3,2;¡"TIENES QUE CONDUCIR A TRETZI” 
él PRINT AT 4,2j"A TRAVES DEL LABERINTO Y...” 
62 PRINT AT 6,2; "DESTRUIR EL MEGATON CENTRAL!!!” 
63 PRINT AT 10,5;¡* (CONTROL POR CURSORES) ” 
— 6% PRINT AT 21,1] “SOSRRBREEBUENA SUERTE RBA" 


— E == 


O RENTA RT IA SRA AiO 


FOR: N=0 TO 7: READ A: POKE USR "B"+N,A; NEXT E 








50 PRINT TAB 5; PAPER 05 INK 61 "tk  TRETZIGQUAL  +e*" 


65 PRINT INVERSE 1jAT 16,1j¡”"PULSA UNA TECLA PARA CONTINUAR" 











——68 PRINT-AT-19 147 *Y*— 
85 IF INKEY%="" THEN GO TO 85 
88 INK 1 | | UE 
$0 CLS - 
95 RANDOMIZE 
100 DIM a$1(19,19) 
140 FOR n=1 TO Y STEP 2 
180 LET a$(n,n)=">?"* 

—1P0-LET afin, 20-n)=" 2" E — 

200 LET a$(20-n,n)=">?" 

—210 TET ast20-n,20-n)="?*-———— SÓ 

220 FOR m=2 TO 18 

230 IF m<=n OR m>=20-n THEN GO TO 280 

240 LET aim n)=*?* 

250 LET aim, 20-n)=2"?" 

260 LET añin,m)=">?* 

270 LET as$(20-n,m)="2?* 

280 NEXT m 

290 NEXT n 

- 300 LET a$(11,10)=*" * 

-— 310 LET a$(7,8+RND*4)=" * 
320 LET a%6(15,6+RNDXB)=" " 
330 LET añ(3, 4+RNDAIZ)=" .- 
340 LET añ(19,2+RND*16)=" * 
350 LET 3=110 


A a E dr 











360 LET qui. 
365 LET re-1 
367 LET 2=w=1 


370 LET k=10 


—-374-CET-WetS— — - e - — 


380 LET 1=19 | 
400 FOR n=i TO 19 
410 PRINT. AT _n,ójaSin) 
420 NEXT nm 
430 PRINT INK 6j PAPER OJAT 10,15)*“?" 
440 LET i=21 
450 LET j=0 
460 BEEP .006,1;: PRINT INK 3347 1,J1]*?" 
470 INK O: PRINT INVERSE+1jAT 0,51"RESERVA DE FUEL: “5: INK 2; PRINT FLASH 1]" 
"393" ": INK O: PRINT INVERSE 1347 5 277% “FAT 6,275" L "18T 7,271” A “¡AT 8,2 
2721" E "¡AT *148T 11,271" 4 "¡AT 12, 2212. SAT LG == 
"AT 14,273"__ "2 INK O 
500 LET n=CODE INKEYS-48 
510 IF n<5 OR n>8 THEN 60 TO 500 
520 LET x=i+(n=6)-(n=7) 
530 LET y=j)+(n=8)-(n=5) 
540 IF x(1 OR x>21 OR y<0 OR y>30 THEN GO TO 500 
580 IF x>19 THEN GO TO 650 
590 IF y>235 OR y<é THEN GO TO 650 
£00 IF as$(x,y-5)<>" " THEN GO TO 500 
_6509 PRINT_ AT 1,J1" ” A - A A An E a 
660 LET ix 
670 LET J=y 
680 LET g9=3-1 
£90 IF 9=0 THEN GO TO 900 
700 PRINT AT 4,k3*" * 
701 PRINT AT 14,m3" * 
705 PRINT AT 16,13" * 
710 1F (m4 AND j=k THEN GO TO 950 
715 IF ií=1é6 AND 4=1 THEN GO TO 950 














—3138-1F-4=14-AND-3=m-THEN-G0-TO-950 : DI DE at 


720 LET k=k*q 
722 LET m=m+s 
723 LET 1=1+P 
726 1F k=10 OR k=21 THEN LET q=g9X(-1) 
727 1F 1=10 OR 1=21 THEN LET r=rxX1(-1) 


728 IF m=i3 OR m=18 THEN LET s=s*(-1) 


729 INK 2 

730 PRINT AT 4,k3">2* : : Z aa 
732 PRINT AT 14,m)*">* 

735 PRINT AT-16,11*>?"* 

738 INK 1 


740 IF 14 AND j=k THEN GO TO 950 


-7842 1F (=14 AND f=m THEN GO TO 950 


- 7895 1F iw1ó AND j=1 THEN 60 TO 950 


750 IF 1=10 AND j=15 THEN 60 TO 220 

800 GO TO 460 e 

900 BEEP .2,2: BEEP .2,2: BEEP .2,2: BEEP .2,2: PRINT FLASH 15 INK 23AT 20,6;*S 
E-TE-ACABO EL FUEL” ( —_—— —— _—— 

905 PRINT INVERSE 1¡AT 0,5) INK Oj "RESERVA DE FUEL;": PRINT FLASH 1jAT 0,223" 
ETS 1] 

510 60 TO 1000 

920 BEEP .1,2: BEEP .2,3: BEEP .3,4: BEEP .4,5: BEEP .2,2: INK 2: PRINT FLASH 1 
JAT 20,01 "FELICIDADES!!! PARTIDA GRATUITA!!!" 

930 60 TO 1000 | 

950 BEEP .50,50: BEEP .2,2: BEEP .3,3: BEEP .12,12: BEEP .50,50: PRINT INVERSE 








13 INK 21AT 20,3) "CAPTURADO POR LAS NAVES!!!" 


1000 PRINT AT 21,OJ"PULSA A PARA JUGARj S PARA STOP" 
VIO F ORTA TOTS A RA 
1020 NEXT q- _ 

1030 LET ¡S=INKEYS 

1035 IF i$="A" OR ¿M="a" THEN GO TO 88 

1040 IF 1$<>"S" AND 18<>"s" THEN GO TO 1030 

1050 CL5S 

1060 PRINT AT 10,8/"HASTA PRONTO!!!” 








1 y consigue en el menor tiempo | = = = O O '" 
posible el mayor número de vueltas O O Ep O a; O O 
AiO. 8 BocoooBoncoocbooooobooconod O 
Tienes posibilidad de elegir entre = cono | a E 
4 circuitos; cada uno de los circuitos o : A 
tiene mayor dificultad. jajajaa lalalala lala ja jajajajaja jajujn juju ]n AA » A 
Si aun así llegas a aburrirte, llama a z = + 
un amigo y compite contra él utili- o —copococopooco0oo000c0o0o0o00000oo 0 
zando la opción de dos jugadores - Z - 
que te da el ordenador. | Se | | | 
Para dirigir los coches se deberán OB OO PL OR. Op O o SR OnOo = - 
utilizar los siguientes mandos: O o o 
o  pOooDododoooadoaoaodoadocoooocooa a 
Izquierda Derecha = E = 
Izquierda 1 9 jajajajajajaja jajojafajojajajalajajaja jajajajajajajaja jmjajmis 
Derecha 2 D 
Acelerar O-T Y-P 
Desacelerar A-G H-ENTER 








1 REM ARRRRRREG. T. SIRRRDOOOAS 


sal 
















2, AO E e BER 
FOR b=i TO 2; READ abía,b); NEXT b: NEXT a 
NEXT b: NEXT a 


A E 2, : DIM bs(< 
11 RESTORE : FOR a=1 TO 4: 
12 FOR a=1 TO 4: FOR b=1 TO 2: READ btía,b): 












Ca, 
0", 


10d 
E tl 
— — Pr 


14 DATA "0","-p2", 


im LA e o 


y A 

=p" 

já Fry: A ¿DS om 

_- daa. 
de a Y 





” =- A = b a A ri % e ERES Ad 
=. 2, mm, nt, « a E — — y + r , OU ca AR = o AR a . pr e + pa S E E ri A s 
20 LET xi ll LEFT yi=16! LET x2=20% LET yve2=16: LET ni=1: LET n¿=l 

e qe AL _ Pe im E te Vi hu ml sr mia e F e E gica eo A Pe , 


A A 


e lr 
7 al 


A 4 Y Ed 
IR e! 


>. «Db1=19: E iDl=l6, nle= Os L! ybe=slós IMPU "JUGADORES (1-2): 
LINE j$: 1F js<>"1" AND js<>"2" THEN BEEP 1,-10: GO TO 25 
—_AA KA AÓÑ E—ÁQA————_—_—_—_—_—_—_—_—_—_——————22222222222—_— A SOSKÁ 


DIDETCAE E o AO A A A O A A AN 

















, 
Z0 PAUSE O: INPUT "*" 





E o ll z E l 3 a L 
"Ta + . - 


a 








pon 
e] 


c0 6 60-000 06-090 0.20PE6 Q£S<., 


119 POKE 23613,0 E 
120 IF j<>2 THEN GO TO 150 
——— 122 LET-x2=x2+VAL-bS (m2, 1)5—LET-y2=y2+VAL—b$(n2,2) 


124 PRINT AT xb2,yb2;" *": IF CODE SCREENS (x2,y2)%>0 THEN PRINT A 


CO OLET xb2=x2: LET yb2=y2: GO TO 130 se 
126 PRINT-AT xb2,yb2ic$(n21; LET x2=xb2i LET y2=yb2: BEEP .003,20 
130 IF IN 61438=(te-2) THEN LET n2=n2-1: 1F n2<1 THEN LET n2=4 
(131 1F IN 61438=(te-1) THEN LET n2=n2+1: 1F n2>4 THEN LET n2=1 
140 IF IN 57342<te THEN LET p2=p2+.05: IF p2>»1 THEN LET p2=1 
141 IF IN 49150<te THEN LET p2=p2-.05: 1F p2<0 THEN LET p2=0 
150 IF IN 643486=(te-1) THEN LET ni=ni-1: IF ni<í THEN LET ni=4 
TISICIF IN 634856=[te-2) THEN LET ni=ni+1; IF ni>4 THEN LET ni=1 
___ 152 IF IN é3510<te THEN LET pi=p1+.05: IF pi>1 THEN LET pi=1 
153 IF IN 65022<te THEN LET pi=p1-.05; IF p1<0 THEN LET pi=0 
160 IF INT yisió THEN 1F cóíni)="2" THEN LET xz=INT x1: 1F xz=19 
LET vi=v1+1; LET yli=(INT y1)-1: PRINT AT 0,22jv13" ": GO TO 162 
161 IF INT yi=1ló6 THEN IF c$íni)="2" THEN LET xz*INT x1: 1F xz=19 
IF vi1>0 THEN LET vis=vi-1: LET yi=(INT y1)+1; PRINT AT 0,22jv11*" * 
174 IF j<>2 THEN GO TO 180 
175 IF INT y2=16 THEN IF cs$(n2)="?" THEN LET zx=INT x2: 1F zx=19 
LET v2=v2+17 LET y2=(1NT y2)-1: PRINT AT 0,28¡v2j"*" *: GO TO 178 
_176 IF_ INT y2=1é6 THEN_IF cs(in2)="?" THEN LET zx=INT_ x2; IF zx=19 
IF v2>0 THEN LET v2=w2-1: LET y2=(INT y2)+1: PRINT AT 0,28jv2;" ” 
180 LET t=t+2; IF t>=20 THEN LET ti=ti-1:3 INK 1: PLOT t1,175: DRA 
O: INK >?:3 IF ti1<=32 THEN GO TO 300 
200 60 TO 100 | 
300 REM Final del tiempo 
310 RESTORE 312 e 











312 DATA 1,5,4,3,2,1,5,4,3,2,1,4,3,2,3,4,5,4,6,5,3,5,7,6,5,4,7,5, 





A E E 
——320-—FOR—2=1-T0-375-—READ-v:-—BEEP-1/10,w+105-NEXT-z 
330 FOR Z=6 TO 14: PRINT AT Z,6j PAPER 05* 
390 PRINT AT 7,73“*JUG.-1: “jV1j" VUELTAS"¡AT 9,7j"JUG.-2: "5V2;5 
ií=V2 THEN PRINT AT 12,11; "EMPATARON" 
342 IF V1>V2 THEN PRINT AT 12,93"GANA EL JUG-1* 
3943 IF V1<V2 THEN PRINT AT 12,9)"GANA EL JUG-2" 
3494 1F V1>=REC THEN LET REC=V1 
345 IF U2>=REC THEN LET REC=V2 
350 RESTORE 312: FOR z=1 TO 37: READ v: BEEP 1/6,v+10: NEXT z 
360 PAUSE 100: GO TO -3 
370 RUN 
4999 STOP 2 
5000 REM Dibujo circuito CIR-1 


SO10 INK 2: CLS : FOR a=i TO 20: PRINT AT a,0)"?"3AT a,313"?": NEXT a 
5011 PRINT AT 18,151*???*: PRINT AT 1,01" ?P??P?PP222P22777729722227222727227?27?"5AT 21 


¿Op PRA PA de Le de be de de dede de de be de de de de dr 


NAS A a O O A 
A A O A A A A TO 


mn ed AAA ss 


A A A 


5015 FOR a=S TO 16: PRINT AT a,41"?": NEXT a 

3S0i1ó FOR a=? TO 13: PRINT AT a,8j5”"?"jAT a,ló6j"?”": NEXT a 
S017 FOR a=2 TO 12; PRINT AT' a,2941"?": NEXT a 

350189 FOR a=12 TO. 16: PRINT AT a,121"?"jAT a, 204*?*: NEXT a 
5020 INK 7: RETURN 

3100 REM CIRCUTTO 2 


5110 INK_2: CLS : FOR a=t TO 20: PRINT AT a,O0j"?"j¡AT a,31j"?": NEXT _a 


5111 PRINT AT 1,03 *?2?2?2272222?222272722722722272277?"jAT 21,031"???? 
dde de dede dede debe dede de E 


A o A 


5112 PRINT AT 6,3)" ??2?????2?222?9??277279797797?2P"pAT 9,11 "2222727?2227?? 


E LE 5 dh 56  .. $ $ 2 4 4 4 +. e RA aa a... PF RA 


JAT:12,31 "22 PIDIO IR RILIIISA" 


>. 


NEXT 2 
VUELTAS": IF Y 


T_x2,y2jcé(n2) 


OR xz=20 THEN 


OR xz=20 THEN 


OR zx=20 THEN 
OR_zx=20 THEN 


W 0,-7: LET t= 


611 317193 10 


A A A A A A 


core de de de de der de dede de de 


A O 








5114 
s115 
—_S114 
5120 
—E5Z00 REM CIRCUITO Y 


3210 
3211 


PRPPPITRIII O" 


e e 
"¡AT 


5214 FOR a=2 TO 5: PRINT AT a,10j"?"jAT a,ló6j"?": NEXT_a: FOR a=4 TO 8: PRINT_AT_ 





FOR a=1 TO 3: PRINT AT a,é6j)"?"1AT a,12;)”"?"¡AT a,18)"?"jAT a,245)"?"; NEXT a 
FOR a=4 TO 5: PRINT AT a,3j"?"jAT a,93"?"jAT a,153"?"30T a,215"?": NEXT a 
FOR a=4 TO 18: PRINT_ AT a,28/*"?": NEXT a APTA IAS 
INK 7; RETURN 


IE — —— — —_—_—_ 





INK 2: CLS : FOR a=2 TO 20: PRINT AT a,0j"?2"3AT a,313"?": NEXT_a 
PRINT AT 1,05 "2222P27222222272?22222P772722727P7?"JAT 21,01 "22PPPPPIPIITRIT PA 
PRINT AT 4,35*?7????"3AT 4,193"?727272?2?"3AT 6,35"?2?7??"3AT 7,225"22272?7?? 
8,71" 27PPIPRIPRIA NAT 9,13 "27277" | ; 

PRINT AT 10,195"????22222?"jAT 11,103"??2?????"jAT 12,31*???2??"jAT 13,165"7?? 


A RES O A TR A A A A A a A II A A e E 


as131"2"3AT a,191"?2": NEXT a: PRINT AT 5,331"? 2" 
5215 FOR a=5 TO 17: PRINT AT a,7j*?": NEXT. az FOR a=14 TO 15: PRINT AT a,ló63*"?”5 


AT a, 
u2ló 


22)"?"jAT a,281"?": NEXT a 
PRINT AT 12,165)"?"1AT 9,19;"2" 


5217 FOR a=14 TO 17: PRINT AT a,131*"?": NEXT a: FOR a=16 TO 17: PRINT AT a,i9)"? 
"¡AT a,251"2": NEXT a | 
5218 FOR a=12 TO 15: PRINT AT a,10/1*"?": NEXT a 
5250 —INK 77 RETURN : 
5300 REM circuito 4 a q = 
5310 INK 2: CLS : FOR a=2 TO 20: PRINT AT a,0j"?"34T a,31j)"?": NEXT a 
5311 PRINT AT 1,01*2?2P?22PP2PPP2P22P 2222227 PPPPPIRIPPPP CIAT 21,03" 22 PP PPPPPRPPRRROTT 
PIPA 
=312 FOR a=7 TO 29 STEP 6: FOR b=2 TO 14: PRINT AT b,aj"?": NEXT b: NEXT a 
5313 PRINT AT 18,41 "2P?P?PP2222P22P72P779772779799P" 
$314 FOR aw=4 TO 29 STEP 6: FOR b=4 TO 17: PRINT AT b,aj*"?": NEXT b: NEXT a 
5350 INK 7: RETURN 
7000 CLS : PRINT "Prepara el casette grabamos..." BEEP 2,30; PAUSE 200 
7005 RANDOMIZE-USR 40000: REM-:- SAVE-25003"MINICARS*"CODE- 23552,79070 
7010 RUN 8000 
8000 POKE 23659,2: IF CODE INKEYS=14 THEN GO TO 7000 
8010 IF CODE INKEY$S=12 THEN CLS : PRINT "Ya lo puedes lístar”": STOP 
8020 POKE 23613,0 
000 REM Presentacion 
020 POKE 23613,0: BORDER 1: PAPER 1: INK 7: CLS” 
2021 FOR 2=0 TO 21: PRINT AT 2,05) INK 25"?2"3AT 2,313"?": NEXT z5 PRINT INK 2;A1! 
A ES Y A AAA 


9022 PRINT AT 18,10;"PARA LA CINTA” 


9024 
9031 


060 
aj” 
9071 


PRINT AT 3,8;*--=<MINICARS>=--"jAT 6,6j"POR: ANGEL GARCIA D.” 
PRINT AT 8,15 INK 25 "2?2?2??2?222?222222?2722?22?2?222??2?"jAT 15,11 222222222297? 


SN IC 


FOR b=0 TO 2: LET p=INT (RND*4)+10: FOR a=1 TO 27: BEEP 1/100,0: PRINT AT p 
"+ BEEP 1/100,0: NEXT a: PRINT AT p,30f" *: NEXT b 
PAUSE 100: BEEP 1/50,30: CLS-: FOR z=0 TO 21: PRINT AT 7,05 INK 2|"?"jAT 2, 


311"?": NEXT z: PRINT INK 23A1T PR RRE AE LU 21,03”? 


A > 


- $ e 0 ES O A AA CIA AA AE A 


9075 PRINT AT 1,131 *--=-=------="% MINICARS >=------- " 

9080 RESTORE 9081: PRINT AT 3,05: READ Z$: FOR Z=1 TO LEN Z$: PRINT OVER 13 INK 

81286 (Z2)): BEEP 1/100,CODE Z%(Z)-60: NEXT Z ¡ 

$081 DATA " PONTE A LOS MANDOS DE TU: FORMULA SPECTRUM, Y CONSIGUE DAR 

EL MAYOR NUMERO DE VUELTAS EN LOS CUATRO CIRCUITOS QUE EL PROGRAMA TE OFRECE Á 

ELEGIR. EXISTE LA POSIBILIDAD DE DOS JUGADORES. 
E l CONTROLES: JUG-=1Z——JUG-DER 
IZQUIERDA 1 al DERECHA 2 e) ACEL 

-ERAR a-T Y-P FRENAR A-G H-ENTER . 

7085 PRINT AT 19,2; "PULSA UNA TECLA PARA EMPEZAR” 


PAUSE O: BEEP 1/50,30: BEEP 1/50,20: BEEP 1/50,40 
BEEP 1/50,30: BEEP 1/50,20: BEEP 1/50,40: GO TO 1 
PAUSE O: RUN 





“O 0 0 0 0 0 89 0 0 0 06 0 0 80 0 €. QQ 














-=I|¡nNsTRUCCIONESs- (MEJOR COPIALAS) - 


EXÍXLLLL MODO PIHEL XHXXXXXXXXX% 
O-AR. 2-AB. 1-12. P-0ER. PIBUOJDO 
1-LIMEA 2-PUNTO 3-CI1RCULO 
-OvVvER S5-AREO S5-ELIPSE 
?-RUTINA COLOREAR Aa-SoOmMBREACO 
A-PAINT-FILL  0-BORRA Lo ULTimo 
A-ALMACENA FANTALLA 

S5-RECUPERA PANTALLA 
C-CUAORICULAR  VU-O0ESCUAORICULAR 
E-1nNIG1I0  n-MARCO EXTERIOR 
M-CAMBIA EL BOoRo0E 

T-ACCESO modo TEXTO 

G-GRAEACION oO CARGA 
O0-0ESPLA2AMIENTO OEL CURSOR 


Este programa contiene las ins- 
trucciones del siguiente. Al ser tan 
extensas hemos decidido realizar un 
programa solamente para las ins- 
trucciones. 


EXEALAE AA AAA AAA AAA 


A RS E sa li E Ne 
10 REM -DIBUJO- ANGEL ARCÍA GDV. SOFTWARE ? 1985 
50 BORDER O: PAPER 0: INK 7: CLEAR 49660: LOAD ""CODE ¿: CLS mn 33 
25 POKE 23607,250 

——20 RESTORE——DATA——INSTRUCCIONES— MEJOR —COPTALAS+-— €_ A RKÉÁAKÁ AAA AA A A 





HEAR MODO PIXEL IRPRRRRRDRRO: 8-AR. Z-AB. 
I-1IZ. P-DER. 1-LINEA  2-PUNTO -3-CIRCULO 4-OVER 5-ARCO  6-ELIPSE 
7-RUTINA COLOREAR 8- SOMBREADO  9- PAINT-FILL O-BORRA LO ULTIMO A-ALMACENA 
PANTALLA na S-RECUPERA PANTALLA C-CUADRICULAR V-DESCUADRIC 

ULAR B-INICIO N-MARCO EXTERIOR —MmM-CAMBIA EL BORDE % T=ACCESO MO 

DO TEXTO LS —G-GRABACION O CARGA . y A 
31 DATA "O-DESPLAZAMIENTO DEL CURSOR HARE 


A AN TT AE 
32 READ A%: READ B%: LET A$=AS+B$: GO SUB 9000 
33 DATA "WHR RUTINA COLOREAR nto 





2AB. 1-12. P-DER. 9-IMPUT PAPEL Y TINTA O-CAMBIAR PAPEL Y TIN 
A ia 4- INVIERTE LA TINTA -———B-BORRADO DEL PIXEL -  R=WOL 
VER -AL MODO PIXEL ( JORNRDDRRIORRDRRARIDGADE. 
RAANALA AAA | 

35 READ As: GO SUB 9000 y > in A 

41 DATA " HARÁ RRA MODO TEXTOS HARIAS 

EL CURSOR SE MANEJA CON.5,6,7,8 Y CAPS SHIF. 

——————DECETE=CAPS SHIFT Y 0 MATUCUCAS-CAPS -SHIFT-Y-2 CARAC O  KÉÁ 
TERES ESPECIALES-CAPS Y 1 SE PUEDEN ESCRIBIR TODOS LOS SIMBOLOS, EMPLEANDO 5 


YMEOL SHIFTPARA VOLVER ÁL MODO PIXEL PULSA CAPS SHIFT + SYMBOL SHIFT PR E 
a FAA AAA 
42 READ AS: GO SUB 9000 


43 DATA * ( IOMRRRAE MODO GRABACIÓN IMHE 
; S-GRABAR LA PANTALLA EN CURSO  L-CARGAR DEL CASETTE 
UNA TPANTAS LEA SI PULSAS OTRA TECLA VUELVES AL MODO: 
PIXEL RRA 


PORO READ As: GO SUB ?000 

350 TES INPUT “GUTERES VOLVER A VERLAS INSTRU=CCIONES ?(S/NT7"J LINE C5: 1F—————————— 32 
CS" | OR c$="s” THEN RESTORE : CLS : GO TO 30 . 
£0 PRINT AT 10,12;"CARGANDO": INK O: POKE 23607,60: LOAD ""CODE 
9000 BEEP 1/50,30: CLS : PRINT AT 0,0: FOR A=1 TO LEN A$: PRINT INK 7j BRIGHT 1] : 
AS(AJ5: NEXT A: LPRINT A$: PRINT AT 21, CEN UNA TECLA PARA CONTINUAR": PAUSE 
O: BEEP 1/50,30: RETURN cage TES 

9900 SAVE "DIBUJO" LINE 10: SAVE “CODE P“CODE 63488, (65368- 63488) 











E — e ae 











Ss 0 de 0 0.X<  O2EpU0U!) 9 o ho ES 
E: 















BIBOJO 2 


Con este potente programa de 
gráficos tú podrás realizar pantallas 
tan buenas como en los programas 
comerciales. Sólo hace falta un poco 
de paciencia y conocer bien todas 
las posibilidades del programa. 





¡Atrévete! 
REN DIR na POR ANGEL GARCIA D. GDV. SO 
FTWARE —? 1985 AS y Ss : 
2 POKE 23659,2: POKE 23613,0: BORDER 7: PAPER 7: INK 6; PAPER 8: CLS 
SPORE cada LE. AREA a 7 A A A RA A ESTE ITA 


_S BEEP 1/50,30: LET te=IN 57342: IF tec>191 AND te<>255 THEN GO TOS 
10 LET o0=0: LET x=127: LET y=87 
A O pd 
20 LET XP=X: LET XB=X: LET YP=Y: LET YB=wY 
o 2S: PLOT OVER Lixsy 
-30 GO SUB 1000 
100 REM --MODO PIXEL-- 
fo BEEP 1/50,30 
__10é6 POKE 23613,0 
110 LET SG=INKEYS 
—320-—IF-IN-649510=te=-1-—THEN-LET-yay+pa;—G0-SUB- 1100 == E e 
122 IF s6="9" THEN GO SUB 300 | 
123 1F s$="a" THEN BEEP 1/50,30: LET 1=USR 65140 
124 IF s$="s" THEN BEEP 1/50,30: LET 1=«USR 65160: BEEP 1/50,20 
125 IF IN 65278=te-2 THEN LET y=y-pa: GO SUB 1100 
126 IF IN 57342=te- 1 THEN LET x=x+pa: GO SUB 1100 A : NI AE 
-150- TELAS 2ate-4 TBENET pa 00 DUB LLO A A A 
135 1F s$="b" THEN GO TO 1 : 
_190 IF S%$="0" THEN GO SUB 1250 
142 IF IN 6348ó6=te-1 THEN GO SUB 1450 
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AAA — AA A Ir A A A 


es 











—193-1IF 2%="0* THEN INPUT *Pa*"j(pajj” Nuevo paso: *¡pal 1F pasiC00O OR patl THEN 60 — 
TO 143 
194 IF IN 6348ó=te-2 THEN GO SUB 1500 0. 0 cs + 
146 IF s$="3* THEN GO SUB 1550 | a ; E e Se 


1947 IF s$="9" THEN GO SUB 1300 
148 IF =s5="v* THEN GO SUB 1050 
149 IF 2a%="c" THEN GO SUB 1000 
150 IF s£="4* THEN GO SUB 1600 
_151 1F s$=-="9" THEN GO SUB 1700 
152 IF s*="5* THEN GO SUB 1450 

153 1F 5$="7" THEN GO SUB 2000 
154 IF s$="6*" THEN GO SUB 1800 
* THEN GO TO 200. 

Ap T SO ONES LOT paa DRAW 255,0: DI 






















A d "L . o, o: “ —DVER OS EN O e z Ade Pip E 
EP 50, 30: 1 LET bo=bo-1: BORDER bo: INPUT ..: 00. SUB. 1200: E 
E E a p la A A e pe S q o A 2 Ln q A RA E 2, EN E ON He AS E q 
a E NS e q OS = A A a e 
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199 GO TO 106 

200 REM --MODO TEXTO-- 

210 BORDER 6: INPUT “*: BRIGHT 8: LET XT=0: LET YT=0 

215 IF PEEK 163842255 THEN OVER-1:- PLOT 0,0: DRAW-255,0:-—DRAW-0,175:DRAW -=233, 
O: DRAW 0,-175: PLOT 0,0: OVER O 
—720 60 SUB 3000: PAUSE 0: LET co=cOoDE INKEYR 

221 POKE 23613,0: IF comó THEN IF PEEK 23658=0 THEN INPUT “": PRINT Aij"MAYUSCU 
LAS": POKE 23658,8: BEEP 1/3,20: GO SUB 3000: GO TO 220 

2222 IF co=é6 THEN 1F PEEK 23658=8 THEN INPUT "": PRINT hi5 "MINUSCULAS*: POKE 236 
58,0: BEEP 1/3,20: GO SUB 3000: GO TO 220 

22% 1F com? THEN IF PEEK 23407=60 THEN INPUT “"; PRINT Ri1/"CARACTERES ESPECIALE 
S*: POKE 23607,250: BEEP 1/5,30: G0 SUB 3000: 60 TO 220 

224 IF co=? THEN IF PEEK 23607=250 THEN INPUT **: PRINT hij"CARACTERES NORMALES 
SPORE 23507,60: BEEP 1/5,30: 60 SUB 3000: GO TO 220 

225 IF cot8 THEN GO SUB 3000: GO TO 220 





S-GRAEAR LA 
PANTALLA 
En CURSO 
L=-CARGAR OEÉEL 
CASETTE UnA 
PANATALLA 





sI PULSAS 
OTRA TECLA 
VUELVES AL 
Mmooo PIHEL 








230 IF co=11 THEN GO SUB 3000: LET xtext-1; IF xt<0 THEN LET xt=0 

231 IF co=10 THEN GO SUB 3000: LET xt=xt+l: IF xt>21 THEN LET xt=21 
232 IF co=B THEN 60 SUB 3000: LET yteyt-1: IF yt<0 THEN LET yt=0 

273 1f co=? THEN 60 SUB 3000; LET yteyt+1: IF yt>31 THEN LET yt=31 

234 1F co=13 THEN 60 SUB 3000: LET yt=0: LET xt=xt+l: IF xt>21 THEN LET xt=21 
238 IF co=12 THEN GO SUB 3000: LET yt=yt-1: IF yt<0 THEN LET yt=0 

240 IF co<t14 THEN GO TO 220 

242 IF cosi4 THEN GO SUB 3000: BORDER 7: POKE 23658,0: POKE 23607,60: INPUT **: 


60 TO 100 

_ 250 BEEP 1/100,30: PRINT_AT _xt,ytj¡CHR$ coj: LET yteyt+1: 1F yt>31 THEN LET yt=0 
GO LET xtext+1: IF xt>21 THEN LET xt=21 a : a e = 

299 60 TO 220 

300 REM --GRABACION Y CÁARGA-- 

301 POKE 23613,0 

310 LET LeUSR 3438: PRINT M1)*S-GRABAR PAN. L-CARGAR PANTALLA” 

320 BEEP 1,20: PAUSE O 


330 LET Ab=INKEYE 
-— 340 IF A$="s" THEN BEEP 1/50,30: INPUT “Nombre:*¡n8: SAVE N*SCREENS : RETURN 


350 IF a$="1" THEN BEEP 1/80/30: INPUT “Nombre:*jn$: LOAD n$CODE : LET 1=USR á5 
190: LET -1=USR-65120: RETURN sn AAA 
370 BEEP 1/50,20: INPUT **: RETURN 
1000 REM --CUADRICULAR=- 
1010 BEEP 1/50,20: FOR A=0 TO 20 STEP 2: FOR B=0 TO 31 STEP 2: PRINT AT A,Bj OVE 
R 15 BRIGHT 11* "¡AT At1,B+11" *": NEXT B: NEXT A 
1020 PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175 
1030 BEEP 1/50,20; RETURN 
1050 REM --DESCUADRICULAR-- 
1060 BEEP 1/50,20: FOR A=0 TO 21: PRINT AT A,O| OVER 14 E BRIGHT 01" 
":» NEXT A 
1070 BEEP 1/50,20: RETURN 
1100 REM --POSICIONAR CURSOR=-- 
1101 1F.x>255 THEN LET x=255 
1102 IF x<0 THEN LET x=0 
1103 IF yt*0 THEN LET y=0 
1104 IF y>175 THEN LET y=175 
1105 PLOT OVER 15XP,YP: PLOT OVER 11X,Y: LET XP=Xx: LET YP=Y: GO SUB 1200: RETURN 
1200 REM --DATOS DE PANTALLA-- 
41205 LET L=USR_ 3438: PRINT A11*X:"5X1"* *¡*Y: ld 
1210 RETURN 
+172350 REM --=BORRAR-LO ULTIMO=- z TE - 7 > 
1260 BEEP 1/50,20: LET L=USR 65120: PLOT OVER 11x,y: BEEP 1/50,30: RETURN 
1300 REM --PAINT=FILL=-- ; 
1310 BEEP 1/50,20: POKE 65190,X: POKE 635191,Y: POKE 65192,56: 60 SUB 1400: LET L 
=USR 65200: PLOT OVER 11x,y! BEEP 1/50,30: RETURN 
1400 REM --ALMACENAR PAN-1--- 
1405 PLOT OVER 1jx,y: LET L=USR 65100: RETURN 
1450 REM -=DIBUJAR LINEA-- 
1452 GO SUB 1400: PLOT XB,YB: DRAW OVER o¡X-Xb,Y-Yb: BEEP 1/50,30: LET xb=xi LET A 
ybm=y: RETURN 
14500 REM ==HACER UN PUNTO== 
1510 60 SUB 1400: GO SUB 1100: BEEP 1/50,35: LET xb=x; LET yb=y: RETURN 
1550 REM --CIRCULO-- 
1560 60 SUB 1400 : ; 
1370 INPUT “RADIO:*¡R: IF X-R<0 OR X+R>255 OR Y-R<O OR Y+R>175 THEN LET L=USR 34 






| RUTINA 
|2£% COLOREAR *% 
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d-I|MPUT PAPEL 


PAPEL *Y TINTA 


EXA 








38: BEEP 1,-10: LET L=USR 3438: GO TO 1520 
1580 60 SUB 1100: PLOT OVER 11x,y! BEEP 1/50,30: CIRCLE OVER 0JX,Y,R: GO SUB 120 |] eeFFrrrrrrrrri* 


O: RETURN 

1600 REM --OVYER== : * A modo TEXTOS 

16410 LET owo+1: 1F 0>1 THEN LET 0*=0 | 

1920 LET I*USR 39387 PRINT KIT FLASH IT"OVER:"J601:' BEEP 1,207 GO SUB 12007 RETUR EL CURSOR SE 

1450 REM --ELIPSE-- MANEJA Eon 

1651 BEEP 1/30,20: GO SUB 1400 5,6,7,8 

1660 INPUT "ALTURA: "¡AL: IF Y+AL>175 OR Y-AL<O THEN BEEP 1,-10;: GO TO 1660 Y CAPS SHIF. 

CNA . 5 mn P ' cal | | 1 pa ” . h ] 

1661 INPUT "ANCHURA: "JAN: IF/X+*AN>255 OR X-AN<O THEN BEEP 1,-10: G0 TO 1661 | A 

1662 INPUT “CONCENTRACION (10-300):*1S5T: IF ST<10 THEN LET ST=10 E 

1665 FOR A=0 TO 2%*P1 STEP PI/ST PS 
E x do AS : MmA+UCULAS-CcAPS 

1667 LET XA=IC0S AJRAN: LET YA=(SIN AJXAL den es ps 

5 iS JUL 

1e75 Sa A IRA A — SS _—— == AAA AA CARACTERES | 

1680 BEEP 1/50,30: PLOT OVER 15x,y: RETURN li in aeic> 

700 REM --PAINT-F Y 1 S5E PUEDEN 

e za Ae ESCRIBIR TOOODS 


1701 BEEP 1/50,20: GO SUB” 1400 

1703 LET P=0: FOR B=Y TO 173: 1F POINT (X,B)=0 THEN GO SUB 1710: NEXT B 
1704 LET p=p+1: IF p>2 THEN LET p=0 

1708 FOR BuY-1 TO 1 STEP -1: 1F POINT (X,B)=0 THEN GO SUB 1710: NEXT B 


LOS SsiMBOLOS, 
EMPLEANOO 
SYMBOL SHIFT 
PARA VOLVER AL 








708 BEEF : PLOT OVER 11x,y!: RETURN | 

1 EP 1/50,30: PLOT O 11%, y CÁmooo PIHEL PULSA 
1710 FOR A=X=P TO O STEP =2 | pp 
1720 IF POINT (A,B)=0 AND POINT (A+t1,B)=0 THEN PLOT A,B: NEXT A — ES ES 
1730 PLOT x+p,b: FOR A=(X+2)+P TO 254 STEP 2 ; = e 

1735 IF POINT (A,B)=0 AND POINT (A-1,B)=0 THEN PLOT A,B: NEXT A EXE LAE ERE 
1742 LET P=P+1: IF P>1 THEN LET P=0 | | 
IJOLGREFORA: 
1800 REM --ARCO-- | | | 


1805 60 SUB 1400 


1810 INPUT *X:"¡AX: IF X-AX<0 OR X+AX>255 THEN BEEP 1,-10: 60 TO 1810 
1815 INPUT "Y: "1AY: 1F Y-AY<O OR Y+AY>175 THEN BEEP 1,-10: GO TO 1815 
1820 INPUT “ARCO: "1¡AR: IF AR>PI OR AR<-PI THEN BEEP 1,-10: 60 TO 1820 
1830 PLOT X,Y: DRAW AX, AY, AR | A A AA A AAN , 
1840 RETURN 
2000 REM --COLOREAR-- 
2001 POKE 23407,60 | 
2005 LET PAPEL=8: LET TIN=9 
2010 LET PX=0: LET PY=0 
2020 60 SUB 1050 : 
2102 1F IN 65278="253 THEN LET px=px+1 
2103 POKE 23613,0 2. 
2105 IF IN 64510=254 THEN LET px=px-1 
2110 IF IN 57342=254 THEN_LET PY=PY+1 es ! 2 Es de 
2115 IF IN 57342=251 THEN LET PY=PY-1 
2130 IF INKEYS="r" THEN BEEP 1/50,30: RETURN | 
2133 IF INKEYS="4" THEN PRINT OVER 1/AT px,py) PAPER 8) INK 8)*?": BEEP 1/50,30 
2200 IF INKEYS="9" THEN INPUT “TINTA: "3TIN, "PAPEL: “¡PAPEL 
2250 IF INKEYS="b" THEN BEEP 1/50,30: PRINT PAPER 81 INK S/AT PX,PYj" * 
2300 IF PX<O THEN LET PxX=0 a 
O) 2305 tr Prco THEN LET PY=0 
2310 IF PX>21 THEN LET PX=21 — 4 e A A E bd 
2315 IF PY>31 THEM LET PY=31 
2400 -IF-IN-61438=254-THEN-BEEP-1/300,30:-—PRINT-OVER-—14-—PAPER-PAPELI-—INK-TINFAT-P A —Ó 
LS X,PYI"H": PRINT OVER 11 PAPER papelj INK tinjAT PX,PY)"H" 
2500 PRINT OVER 1) PAPER 8;  INK B14AT PX,PYI*X" 
2510 LET 1*=USR 3438: PRINT A15*X:3"Ipx1" Yi"ipyi”" P:"3PAPEL+" Ti"¡TIN 
2520 PRINT OVER 1j PAPER 8] INK 8/AT PX,PYJ"X" 
Lo 2600 GO TO 2100 | KA | 
2000 REM --CURSOR TEXTOS-== : 
3005 PRINT AT Xt,Ytj OVER 11 PAPER 83 INK 8)*?": RETURN 
9000 IF CODE INKEYS=14 THEN_POKE_23659,2: BEEP 1,30: CLS ; PRINT_AT 0,01*"GRABAMO E A 
S...": 60 TO 9500 
SS 900 1—IF-CODE-INKEYS=1?2-THEN-POKE 234659, 21: STOP ———— : — 
5010 POKE 236413,0 : 
9400 RUN 
9%00 SAVE “DIBUJO"*CODE 23552,8023 
E 9505 PAPER 7: INK 0: BORDER 7: CLS : PRINT AT 10,10f*PARA LA CINTA": PAUSE 200 
9510 RUN 9000 
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nel número anterior realizamos el 

banco de pruebas del programa 
(tratamiento de textos) que acom- 
paña al Wafadrive. 

En este número pretendemos em- 
pezar a realizar una serle de bancos 
de pruebas de algunos de los perifé- 
ricos que comercializa la empresa 
Iinvestrónica (que como todos sabe- 
mos es la distribuidora oficial del 
Spectrum en España). 

En estas páginas analizamos el 
interface programable con sonido. 
Llega a nuestras manos en una caja 
perfectamente embalado y protegl- 
do contra golpes y malos tratos que 
pueden surgiren su transporte. 

Rápidamente lo desembalamos y 
conectamos a nuestro Spectrum. (La 
conexión la hicimos con el Spectrum 
desconectado. Si algún despistado 
se le ocurre hacer la conexión con su 
ordenador conectado es muy pro- 
bable que seguidamente tenga que 
llevar su querido ordenador a que le 
hagan una buena reparación). Segui- 
damente conectamos nuestro orde- 
nador y cuando parecía que iba a sa- 
lir el famoso mensaje de € 1982 
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Sinclair Research Ltd., nos sor- 
prende que como por arte de magia 
aparece una pantalla con un comple- 
to menú de opciones. Ante tan agra- 
dable sorpresa, decidimos averiguar 
cómo se ha producido y descubrli- 
mos que en el interior del interface 
se encuentra una memoria Epron 


INTERFACE 


| VERSION 3 






| 


PROGRAMaBLE 


'que contiene el programa corres- 


pondiente. 

Al conectar el ordenador se realiza 
la paginación de la Epron de Interfa- 
ce sobre la memoria del ordenador y 
un salto a dicha rutina. En el menú de 
opciones al empezar el programa ve- 
remos la opción de salir al Basic, im- 
presa en un fondo blanco con tinta 
negra. El programa pregunta si se 
elige esta opción: Si le dices que Sl 
vuelves al Basic, el interface queda 
desactivado. Si le dices que No, el in- 
terface salta a la siguiente opción, 
así hasta que decidamos la opción 
que nos interesa. Las diversas opcio- 
nes son: 


JOYSTICK 


PROGRAMABLE 
SINCLAIR 
KEMPSTON 
VERSION 1 
VERSION 2 


VERSION 4 
VERSION 5 
VERSION 6 


N€050000000 xn 


X 
6 
5 
2 
9 
1 


X 
8” 
Y, 
A 
Q 
Z 
4 
6 
3 


MN 09 4 "UD TDO0 Jo j 





NORMAS PARA UTILIZAR 
ELINTERFACE 


Para utilizar el interface primero 
tendremos que saber si el juego está 
preparado para funcionar con JOYS- 
TICK. Si es así tendremos que pro- 
gramar el interface para que se com- 
porte como el interface para el que 
está preparado el juego. Por ejemplo, 


si el programa puede funcionar con: 


el interface KEMPSON, sólo tendre- 
mos que conectar el interface, elegir 
la opción Kempson y salir al Basic. 
En este momento el interface queda 
programado para . comportarse 
como un interface KEMPSON. En- 
tonces cargamos el programa por el 
procedimiento normal y ya nos po- 
demos poner a matar marcianitos O 
a controlar a nuestro héroe con el 
Joystick. 

Si por el contrario el programa con 
el que queremos jugar no está prepa- 
rado para JOYSTICK, lo primero que 
tenemos que saber es a qué teclas 
queremos que sustituya el Joystick. 
Por ejemplo: 

Si tenemos un juego de marciani- 
tos en el que el control de la nave se 
realiza con las teclas: |, izquierda; P, 
derecha; O, subir; Z, bajar; W, disparo. 

Entonces conectamos el ordena- 
dor y en el menú de opciones del in- 
terface elegimos la opción progra- 
mable. 

Al situarse en esta opción el pro- 
grama nos irá pidiendo a qué teclas 
tiene que sustituir el JOYSTICK. En 
el ejemplo anterior, tendríamos que 
introducir los siguientes datos: 


FIL 
DAOZ IP 


JOYSTICK 
PROGRAMABLE 


Una vez finalizada la introducción 
de estos datos, el programa pregun- 
tará si la programación es correcta. 
Si le decimos Sl, el programa volverá 
al Basic y entonces podremos cargar 
el programa con el método normal. 

En el recuadro siguiente podéis 
ver un organigrama del funciona- 
miento del programa que incorpora 
este interface: 


DAR TENSION 
AL ORDENADOR 


Para los que quieran utilizar este 
interface en sus programas damos a 
continuación una serie de consejos 
para su uso: 

1. Cuando se haya programado 
el joystick es importante no accionar 
el mismo durante la carga o graba- 
ción de programas. 

2. Cuando se ha salido al Basic 
con la opción SALIR AL BASIC, el in- 
terface no tiene efecto alguno so- 
bre el Spectrum. 

3. Elinterface usa los siguientes 
ports para su uso interior: 240, 241, 
242,243, 248, 249, 251. 

La escritura sobre alguno de estos 
ports puede traer resultados impre- 
decibles. 

Con el interface programado es 
posible inutilizar el interface me- 
diante el Basic con la instrucción 
OUT 251,4 (el interface quedará 
como si no existiera). | 

También es posible volver a acti- 
var el interface mediante el Basic 
con la instrucción OUT 251,6. El in- 
terface volverá a funcionar como es- 
taba programado en un principio. 

Si introducimos el comando OUT 
251, 0 podremos acceder al progra- 
ma que incorpora el interface y por lo 








JOTSI CL 


JOTSIIOX 
¡51M EFECTE 


+ 
a] 
aa 


í LU! al 5 0 
as mu . a 
á L] 


a tata 


Attias 
E Sa e 
le A 
JJ E 
a E a, 


1] mu 
A A 


e 
7 


El l 
a 
+ 
2. 
. 5 
1 


" 
a 
a 
8 
Fa 
e 
É 
- 
E, 
E 
El e 
, 


ON 


e 
A 
n 
5 
- 
” 

s 


r a 
e 
se 
pe 
A 
ces 
mn 


0] 
» 
* 

Ñ] 
1] 
a 
E 
dl 
5 
ñ 
5 
s 
1 
5] 


A ms se 


1 53 1 55,8 
= as a: 
11 a 


cacao eones 


1] 
7] 


UA 
. $ 
Ed 
ne En . e. a 
2 
a 


E 
n oa a "e . A ..u 
a 


aa 
17] 
A 


Jn da a aa 


A 








tanto podremos acceder al menú de 
opciones para volverlo a programar. 
Hay que tener en cuenta que si acce- 
demos al menú del interface median- 
te el Basic, el efecto será el mismo 
que si apagamos y encendemos el 
ordenador. 

En general, el interface es uno de 
los mejores aparatos que han caído 
en nuestras manos. Es muy fácil de 
programar; sólo hace falta la pulsa- 
ción de dos teclas: S y N (se elimina 
así la complejidad de cables y cone- 
xlones que traen otros interfaces). 

Todo el conjunto de circuitos que 
forman el interface están alojados 
dentro de una carcasa de plástico rí- 
gido que forma en total un conjunto 
rígido y compacto, echo a prueba de 
las peores manos en las que pueda 
caer. 


SONIDO 


El interface también incorpora un 
pequeño amplificador de sonido ba- 
sado en el ya popular circuito inte- 
grado TBA 820, que amplía las posi- 
bilidades sonoras del Spectrum. El 
interface en un lateral lleva un poten- 
ciómetro que permite regular el volu- 
men del ordenador a nuestro gusto. 
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COMO CONECTAR UN 

JOYSTICK A TU SPECTRUM 
SIN NECESIDAD DE 
INTERFACE 


ES este artículo pretendemos co- 
nectar directamente un joystick 
al interior del Spectrum sin necesi- 
dad de utilizar un interface. Muchos 
de vosotros os preguntaréis que 
cómo se puede hacer esto. 

Lo primero que tenéis que tener es 
alguna idea de cómo es el Spectrum 
por dentro, sobre todo de dónde es- 
tán situados los conectores del te- 
clado en la placa del cinuito impre- 
so del ordenador. Si quitas los tor- 
nillos traseros del ordenador y levan- 
táis el teclado, comprobaréis que el 
teclado está unido al ordenador a 
través de dos cables planos que a su 
vez van conectados a la placa con 
dos conectores, uno de ocho con- 
tactos y el otro de cinco. 

La idea de esta conexión salió al 
examinar el Interface ll, propuesta 
por Sinclair para el Spectrum. Esta 
Interface ll utiliza las teclas numéri- 
cas para las palancas de mando de la 
siguiente manera: 
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Tabla 4 
IN KEY $=1 IN61486 bitdatoO.«-(1) 
IN KEY $=2 IN61486 bitdato 1—=(1) 
IN KEY $=3 IN61486 bitdato 2 y (1) 
INKEYS=4 IN61486 bitdato 31 (1) 
IN KEY $=5 IN61486 bitdato4  )1) 
disparo 
IN KEY $=6 IN 61438  bitdato 4 —(2) 
IN KEY $=7 IN61438  bitdato 3 —(2) 
IN KEY $=8 IN62438 bitdato 2 y (2) 
INKEYS=9 IN61438 bitdato 1? (2) 
INKEY S-9 IN61438 bitdatoo (2) 
disparo 


Para conectar un joystick sin un 
interface, solamente tendremos que 
saber su patillaje. En la siguiente fi- 
gura podemos ver la estructura nor- 
mal, en este caso la de Atari, que es 
la utilizada por el interface ll. Si des- 
conoce este dato, averíguelo con la 
ayuda de un ohmímetro. 





Sabiendo el patillaje de nuestro 
joystick es fácil instalar dos conecto- 
res DIL de 9 patillas y realizar el ca- 
bleado siguiendo el siguiente esque- 
ma: 


Conector 1 


Conector 2 
| | | | E 
e 7 nl | | sal al Jl 
eo. | | ecsoc ; 
0.786 | 9 e 78 
al ER 
El O A E EA 
| : Sl 
Sp E A > o des - 
O = no conectada RERE es | al Conesiones placa 
3 LA Ó de l LA E] 17] [7 
¡A4dd E di o 


k DEC ADES 
[e 


DOE 
Ala 


Matriz del Teclado 


Le aconsejamos que si no tienes 
mucha experiencia con el soldador 
deja esta tarea para algún amigo que 
ya la haya tenido, pues cualquier 
equivocación puede traer conse- 
cuencias fatales para tu Spectrum: 

Una vez que hayas instalado los 
conectores y realizado las conexio- 
nes, podrás sondear la posición del 
joystick con la función INKEY$, pero 
con este sistema existe un inconve- 
niente, que sólo podemos mover un 
joystick a la vez. Si intentamos mo- 
ver los dos a la vez, la función IN- 
KEYS no funcionará. 

Para evitar este problema pode- 
mos utilizar la función IN. La direc- 
ción para sondear el teclado con la 
función IN se encuentra en la tabla 1. 


E 55,5 A A AA ... 
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CUARTA PARTE 


REPERTORIO DE COMANDOS 
DE BASIC 


Pp el número anterior iniciamos 
una ligera descripción de los co- 
mandos del Basic. En este número 
abordamos de una forma más profun- 
da los tipos de comandos, cómo es- 
tán divididos y cuál es su función. 

El conjunto de comandos del Basic 
se puede clasificar perfectamente en 


cinco tipos: 
COMANDOS DE CONTROL 


Este tipo de comandos se caracte- 
riza porque indica al ordenador que 
realice una función en concreto, es 
decir, que realice una serie de opera- 
ciones con una sola instrucción: 
SAVE “NOMBRE” realiza una serie 
de operaciones (graba un programa). 


COMANDOS DE 
PROGRAMACION 


Este tipo de instrucciones tiene 
como objetivo constituir junto con 
uno o varios argumentos las instruc- 
ciones para la manipulación en el in- 
terior de un programa y para /a defi- 
nición de situaciones en un progra- 
ma, comparaciones, saltos, retor- 
nos... 
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COMANDOS DE ENTRADA- 
SALIDA 


Controlan todas las operaciones de 
comunicación con el exterior que tie- 
ne el ordenador. 

Habilitan la entrada o salida de da- 
tos, permiten la entrada de datos pro- 
cedente del teclado, imprimen datos 
y resultados en los órganos de salida 
(pantalla impresora RS232, Microdri- 


ve, red local) o definen el formato en - 


que deben realizarse estas operacio- 
nes (canales, velocidad de transmi- 
sión, etc.). 


FUNCIONES ARITMETICAS 


Los comandos agrupados en esta 
categoría realizan funciones mate- 
máticas (suma, resta, multiplicación, 
división, raíz cuadrada, seno, coseno, 
tangente...), a realizar sobre los argu- 
mentos que acompañen a dicha fun- 
ción. 


FUNCIONES DE CADENA 
DECARACTERES 


En esta categoría se agrupan todas 
las instrucciones que realizan alguna 
manipulación sobre cadena de carac- 
teres O strings. 

Este tipo de instrucciones son las 
que realmente nos dan una gran po- 
tencia a la hora de programar; exis- 
ten instrucciones para convertir ca- 
denas de caracteres en numéricas, 
podemos saber qué longitud en ca- 
racteres tiene una cadena o elegir 
una serie de caracteres (Subcadena) 
dentro de una cadena, etc. Toda esta 
serie de instrucciones las iremos ex- 
plicando poco a poco en sucesivos 
números de LIBRERIA DE SOFTWA- 
RE. 


NUMEROS Y CADENAS 
DECARACTERES 


El lenguaje BASIC, al ¡gua! que 
otros lenguajes admite tanto núme- 
ros como cadenas de caracteres O 
strings en sus variables, pero el intér- 
prete los trata de distinta manera. 


REPERTORIO DE 
INSTRUCCIONES BASIC 
COMANDOS DE CONTROL 
CLEAR LOAD --—POKE 
CAT SAVE RUN 
CONTINUE VERIFY PAPER 
COPY NEW INK 
LIST PEEK BORDER 
OVER FLASH BRIGHT 
INVERSE BEEP DIN 
- USAR BIN PLOT 
DRAW CIRCLE POINT 
PAUSE MERGE LLIST 


COMANDOS DE PROGRAMACION 


STOP GOTO RESTORE 
FOR GOSUB RETURN 
TO IFTHEN AND 
NEXT LET OR 

STEP REM NOT 


COMANDOS DE ENTRADA 


DATA READ INKEY $ 
OUT IN INPUT 
PRINT INPUT+* PRINT+ 
TAB PRINT LPRINT 
PRINT* FORMAT OPEN*+ 
CLOSE* MOVE AT * 
FUNCIONES ARITMETICAS 

- ABS SQR INT 
- cos TAN ASN 
y SIN RND ACS 
/ SGN LOG ATN 
Pl EXP LN VAL 

FUNCIONES DE CADENA 

DE CARACTERES 

CODE CHR$ LEN 
STRS VAL VAL $ 
STRS TO LETS 
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Los números pueden ser negativos 
O positivos. 


VARIABLES NUMERICAS 


Una variable numérica no es más 
que un indicativo o referencia a la que 
se le asigna un determinado valor nu- 
mérico, 

El empleo de este tipo de variables 
nos va a permitir realizar programas, 
que realicen diversos cálculos o apli- 
caciones en las que no haya modifi- 
caciones cada vez que queremos 
ejecutar el programa con distintos 
datos. Nada mejor que un ejemplo 
para demostrarlo: 

Sí queremos realizar un programa 
que trace en la pantalla círculos con 
distinto radío, podremos utilizar la 
instrucción CIRCLE con una variable 
numérica. La instrucción CIRCLE tie- 
ne tres argumentos: CIRCLE X, Y, F, 
en donde X= coordenada x;, Y = coor- 
denada y. R= radio del círculo. 

Sabiendo esto nuestro programa 
quedaría así: 


10 INPUT "RADIO”,R 
ZO CIRCLE S80,100,R 
50 GO TO 10 


Introduce este programa en el or- 
denador y pulsa RUN. 

En la línea 10 el programa nos pre- 
gunta por el radio que queremos darle 
al círculo; este radio es asignado a la 
letra R y así esta letra se convierte en 
una variable numérica. En la línea 20 
se ejecuta la instrucción CIRCLE 80, 
100 R en donde 80 y 100 son las 
coordenadas del centro del círculo en 
la pantalla y Res la variable numéri- 
ca del radio del círculo que se dibuja 
en la pantalla. Para modificar el radio 
no hay que: modificar el programa; 
basta con darle otro valor a R en el IN- 
PUT de la línea 70, la línea 30 hace 
que el programa retroceda a la línea 
70. 
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CONDICIONES QUE DEBEN 


q 
CUMPLIR LAS VARIABLES ¡0 digital s.d. 
NUMERICAS =D 


| — Los ordenadores personales son 
demasiado importantes como para 
permitirse el lujo de ignorarlos. 
— Ordenadores personales sofiware, 
hardware, libros periféricos. 


Una variable numérica puede ser | 
cualquier palabra que empieza por 
una letra. En el ejemplo anterior la va- 
riable R también se le podía haber lla- 
mado RADIO y el ordenador la trata- 
ría igual. 

Las variables numéricas pueden 
ser escritas tanto en mayusculas 
como minúsculas, e/ ordenador las 
trata ¡gual. 





COMMODORE (“4 


ORIC 





ZX SPECTRUM 


YO 












Distribuimos el software 





publicado por tu MICRO 


C/ PILAR DE ZARAGOZA, 45 (semiesqui- 
na a Cartagena). 28028 MADRID 


TELEFS.: 246 49 90-246 56 63 


RADIO =radio 


ASIGNACION DE VALORES A 
LAS VARIABLES NUMERICAS 





En el lenguaje Basic existen dos 
formas principalmente para asignar 
valores numéricos. Estos dos coman- 
dos son INPUT y LET. El comando IN- 
PUT, debido a su mayor complejidad, 
lo trataremos más adelante. El co- 
mando LET es el más usado en el in- 
terior de un programa para asignar un 
dato a una variable. Por ejemplo: 


10 INPUT "RADIO",RADIOU 
20 LET X=80 


ORDENADORES PERSONALES 
Y MICROORDENADORES 

DE GESTIÓN 

o KATSON 
o APPLE 
e ALTOS 


o SPECTRUM 
e ORIC ATMOS 
O NEW BRAIN 











SOFTWARE STANDARD 
Y A MEDIDA 


CURSILLOS Y FORMACION 







En Madrid: 
MODESTO LAFUENTE, 63. Talál. 253 94 54 


30 LET Y=100 
40 CIRCLE X,Y,RADIO 


COMPONENTES 
AUTOSERVICIO 

BARQUILLO, 40 
4198742-4198751 





En este ejemplo hemos sustituido 
los valores de X y de Y, 80 y 100 res- 
pectivamente, por otras dos variables 
numéricas X e Y, que son asignados 
sus valores en las líneas 20 y 30. 

En el próximo número trataremos 
las variables de cadena de caracte- 
res y empezaremos una descripción 
de todos los comandos utilizados por 
el Basic. 


«Xerox 'Oric Atmos 
-Alphatronic —-Toshiba 
-New Brain :Átari 


Impresoras Microdrives 
Programas 
General Ricardos,117-3-D 
“Q 4712214/2362 








* Ordenadores personales Hard y Soft. 
* Cursos de Basic. 









Oficina RENOVACION EN MARCHA, $. A. 
C/ Espronceda, 34, 28003-MADRID 
Tino. (91) 441 24 7 










REMSHOP 1 
Galileo, 4. 28015 MADRID 
Ttno. (91) 445 28 08 







REMSHOP 2 
C/ Dr, Castelo, 14, 28008 MADRID 
Tino. (91) 274 98 43 







REMSHOP 3 
C/ Modesto Lafuente, 33. 28003 MADRID 
Tfno. (91) 233 83 19 







REMSHOP BARCELONA 
C/ Pelayo, 12. Entresuelo J 08881 BARCELONA 
Tíno. (93) 301 47 00 


| REMSHOP LAS PALMAS 
C/ General Mas de Gamindez, 45, LAS PALMAS 
Tfno. (928) 23 02 90 


COMPUTIDUE 


SI posees un Spectrum y —o un QL,| 
| SI dominas el código Máquina, 

«Si te gusta la programación y 
¡| puedes escribir un buen programa 











pelo! py Los y Mojo] Y [eLo pg -To El 


COMPUTIOUE 


C/ Embajadores, 90. 28012 MADRID 
Tino. 227 09 80 - 227 91 99 


á CE A 
«-BITE 
Ay Y «cas 
e APPLE e COMMODORE 
e SPECTRUM o AMSTRAD 


e SPECTRAVIDEO e DRAGON 


OFERTA MES DE ABRIL 
En importes superiores a 25.000 ptas 
Vale obsequio 10% descuento para su 
próxima compra 


Barquillo, 15 - Tel. 232 57 37 
MADRID 





ELECTRONICA 
'É*SANDOVAL sa 
DISTRIBUIDORES DE: 
COMMODORE-64 
ORIC-ATMOS 
ZX SPECTRUM 
SINCLAIR ZX 81 
ROCKWELL'-AlM-65 
DRAGON-32 
NEW BRAIN 
DRAGON-64 
CASIO FP-200 


ELECTRONICA SANDOVAL, S. A. 
C/ SANDOVAL, 3, 4, 6. 28010-MADRID 
Telefonos: 445 75 58 - 445 76 DO - 445 18 70 

447 42 01 
C/ SANDOVAL, 4 y 6 
Centralita 445 18 33 (B líneas) 





¿2 CAMAFEO mc 


O] ES CASSETTES 
EE DE CALIDAD PROBADA 






e PARA ORDENADORES 


Caja de 30 










Caja de 1U 





1393 plas 3582 ptas 
d 1461 plas 3762 plas 
G-13 219 plas 153) plas 3942 plas 


C-20 229 plas 160? plas 40122 plas 










Libre de gastos de envio contra reembolso correos 


CAMAFEO mc. DepO3 
José Lázaro Galdiano, 1. 28036 Madrid. 









CLUB DEL JUEGO 


COMPRA — VENTA 
PROGRAMAS DE OCASION 
ZX 16-48K 
Entre otros: Space Raiders, Time Gate, Fro- 
gg!, Billar Americano, Harrier Attak, Figther 
Pilot, Tunel 3 D, Styk, Scuba Dive, Base| 
Datos, Ajedrez Cirus y 600 títulos más, pide- | 


nos el tuyo 


A A A A AA 
¡Por sólo 900 ptas. más gastos de envio, 
puedes conseguir tu programa preferido, ga- 
rantizados y comprobados. 


gramas. 


Rellena este cupón: 
Deseo recibir contra reembols 
Mombre del programa 


ME LO ENVIAN A 

Ca 

Población o 

Telétono (si tienes) ........o.ccooioorossoss 


ENVIAR A: CLUB DEL JUEGO 
Apartado Correos 34,155 BARCELONA 


. TODO EN MICROINFORMATICA 


SINCLAIR, AMSTRAD 
SPECTRAVIDEO, KATSON... 
IMPRESORAS, MONITORES, PERIFERICOS 
PROGRAMAS EDUCATIVOS, GESTION, 
OCIO, 
Silva, 5-4.* Tel, 242-24-71 
28013 MADRID 


FACTURACION SPECTRUM 


Pedidos 
Oioerias 


¡| Albaráanes 
|Gontrol de Slocks 
lListas de Precios 


Un sólo programa de 

fácil manejo con microdrive | 
con 20 ficheros de clientes, 
proveedores, artículos, elc. 


20 Ficheros dilerentes 
1000 Articulos 


ALSI, S. A. Antonio López, 154. 
Tel. 91/475 43 39, 28026 MADRID 





. "a > o 
Librería y Editorial 
ql zz ) 18 ri? . 
Micromtormática, le ofrece: 
e La mayor variedad de libros de microinformática, | Técnicas de Programación; Robótica. etc., en cualquier 


capaces de satisfacer todas sus necesidades, ya sean | "nivel desde el más básico al más avanzado, para sacar el 
profesionales, familiares, culturales... máximo beneficio, diversión y provecho a su ordenador, 








e Todo tipo de información bibliográfica sobre micro- 
ordenadores. desde AMSTRAD a Sinclair QL; Lenguajes y 





Portavor ¡anote ias materias desa O ARA E 
É Ordenadores personales. sí se 5 
ñ Sidispone, especifiqueMarca .........oooo.oo «ooo po.»o Y a E 
Aplicación a: 4 al Al Ne 
Í  necocIos. CASERA. EDUCACION. % A 
JUEGOS. OTROS. ¿GLASS 
3 Ocupación ....... ie A A OS E eN TT TT RRA, 4 di y "Y, S LO / j 
Í COMENIATIOS ..ooocoormcmo.... Libros, Revistas, Suscripciones, Importación y Distribución ; 


A Chiquinquira, 28. Local 4 (Cocuy). 28033 MADRID. Telef.: 764 50 95 
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SCROLL DELA PANTALLA PIXEL 
A PIXEL EN BASIC 


Esta pequeña rutina en Basic consi: 
que el Scroll de la pantalla hacia arriba 
pixel a pixel. El efecto lo consigue va- 
riando en la variable del sistema 
CHARS (que es la dirección donde se 
encuentran los datos del juego de carac- 
teres en la ROM). Variando esta varia- 
ble de 1 en 1, e imprimiendo una letra 
cada vez que se modifica CHARS, con- 
seguimos un efecto de SCROLL. Esta 
pequeña rutina tiene grandes limita- 
ciones, pues nada más que puede reali- 
zar SCROLL a letras que se encuentren 
en el banco gráfico de la ROM, 

Dejamos a la imaginación de nuestros 
lectores las posibles modificaciones de 
la rutina. 


(LISTADO RUTINA) 


REM XXFKSCROLLXAXX 

10 FOR N=1 TO 200 

20 PRINT AT 9,10;”AAAA" 

25 PRINT AT 10,10; "BBBB" 
30 PRINT AT 11,105;”C0CcCc” 
40 POKE 23606,N 

50 PAUSE 20 
£0 NEXT N: 


cn 


POKE 23606,0 


COMO ALMACENAR DOS 
PROGRAMAS CON EL MISMO 
NOMBRE EN UN MISMO 
CARTUCHO DE MICRODRIVE 
CHO 

DE MICRODRIVE 


f uchas veces se hace necesario gra- 
Y 1 bar dos veces el mismo programa 
con el mismo nombre para realizar co- 
pias de seguridad. ¡Cuántas veces ha- 
bremos desconectado el ordenador con 
un cartucho puesto y se nos ha destrui- 
do algún programa! 

Muchos estarán pensando que es 
muy fácil esto, con poner dos veces 
SAVE * “M”;1;"“NOMBRE” ya está 
todo solucionado. Pero no es así; la pri- 
mera vez funcionará, pero al intentar 
grabar otra vez el ordenador nos dará el 
mensaje de error: Writing to a “read” file 
(intento de escritura en un fichero de 
“lectura”). 

La solución a esto es más fácil de lo 
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AECA 
m 


que te puedes imaginar. Basta con ha- 
cer un POKE en la variable del sistema 
COPIES, con el número de copias que 
queremos realizar. Por ejemplo: 


POREZI79O LE 
SAVE " “M”;1:"NOMBRE” 


Y el programa se grabará en cinta 
tantas veces como se lo hayamos indica- 
do. 


GRAFICOS EN MOVIMIENTO CON 
2 INSTRUCCIONES 


Se pueden realizar efectos especia- 


les muy interesantes con tan sólo dos 
instrucciones. Estas instrucciones son: 


PLOT127,80:DRAW RX, Y, N 


En donde X e Y pueden ser cualquier 
valor comprendido entre 10 y 60. Y N 





puede ser cualquier valor que esté com- 
prendido entre 8.000 y 9.999, 

Experimenta dándole distintos va- 
lores a X, Y y N y podrás conseguir inte- 
resantes efectos para poder incluir en 
tus programas o impresionar a tus ami- 
gos. 


CODIGOS DE CONTROL EN LA 
INSTRUCCION SAVE 


En muchos de los programas comer- 
ciales habremos visto muchas veces que 
el nombre del programa no sale inme- 
diatamente como debería salir, sino que 
sale encima o debajo o al principio de la 
pantalla. Muchos os preguntaréis que 
cómo se realiza este efecto tan raro: 
Pues nada más fácil, se logra introdu- 
ciendo códigos de control en el nom- 
bre del programa al grabarlo con el co- 
mado SAVE. Por ejemplo: 


LET A$ - CHR$ 13+ CHR$ 13 
SAVE A$+ “NOMBRE” 


LAPIZ OPTICO 
CRAYON OPTIQUE 
LICHTGRIFFEL 





UIROAN] 


LA MAS ALTA CALIDAD EN LAPIZ OPTICO, MAS UN PROGRAMA DE ALTA CALIDAD. 
LO MEJOR AL MEJOR PRECIO 


DRAGON — SPECTRUM — COMMODORE 64-— VIC 20 — TANDY 





e DIBUJA CIRCULOS. 
e DIBUJA LINEAS. 


e DIBUJA CON MANOS LIBRES. ») PA: 

e RELLENA AREAS DE COLOR. OFERTA 

e GUARDA Y CARGA DIBUJOS A Y ESPECIAL 
DESDE LA CINTA (CASSETTE). ? 


e COMPLETA FACILIDAD DE BORRADO. 3.000 ptas. 
e ENTRADA Y PROCESO DE DATOS. 
e SELECCION DE MENU Y CONTROL, 
e IDEAL PARA JUEGOS. 





Distribuidor: GTS 
Avda. del Mediterráneo, 42, 1.2 C 
(91) 252 88 52/252 88 99 
28007 MADRID 
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